(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    190420,       4573]
NotebookOptionsPosition[    177069,       4284]
NotebookOutlinePosition[    177743,       4310]
CellTagsIndexPosition[    177662,       4305]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.2", "HistoryData",
  CellTags->"New",ExpressionUUID->"1308e373-cce5-4b9b-b652-41cdb6cc3acf"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"e99d8b8e-ba11-498b-87f3-b31a01797ff2"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"05e62d70-2180-4828-bb43-54ab8cd0dbef"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"bf666692-7240-41d4-b006-39c2e98c9964"]
}], "History",
 CellID->1247902091,ExpressionUUID->"b7a4c809-45e8-42cf-8eda-9169f21057ee"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"1c86c9a7-b9a1-4d45-bb17-65fb98bcc481"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"94a3454b-363a-47fa-8f25-58a9ab814b54"],

Cell["MaXrd", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"704add6e-e293-43ed-b80f-6b443a4de81d"],

Cell["MaXrd`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"c3263004-002d-4c3b-bbe0-18652ef47be7"],

Cell["MaXrd/ref/CrystalPlot", "Categorization",
 CellLabel->"URI",ExpressionUUID->"d7f8f2f8-80ca-4e9b-bc17-a0ff22f59c32"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"6b15ea0f-7768-4c2d-a362-e6527cdc0b8c"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"a4138dbd-4c75-48aa-8088-196f0858fa5a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"b7ae374b-21f8-4697-8e89-f6400a0259e3"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"e8c27aed-e4f4-43fb-aa03-902987e6617f"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"e93848e0-9b2e-49dc-8c90-f3bbd8406d02"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"c7b5a5f7-f9a0-4d22-891c-f1e1fce5eaca"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"fdcfbbae-9aac-47ed-a9a9-6a127255ea13"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"ce30c61a-3a64-4ff8-a2a3-0303eb86399e"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"0351a11d-8e6c-4931-9462-20592a192a6d"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"302b8c06-4e54-46f6-8d15-6fe0d2105699"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"67251a71-29ee-4276-96ea-819953f593e5"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"63dccf62-1fe0-4b49-ac2d-f3b1f73ba126"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"ffe6b483-3c27-4aa0-a252-93a939fe1fee"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"652e40a1-2810-4221-ae79-2b0d01612f4b"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"db1bf968-9289-49eb-a6fb-91b83d48511f"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"f921a1e7-d039-4ff2-9553-e7842a97b70e"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"16f25d0d-ce2a-4bbc-8d14-10eacc5e4534"]
}, Closed]],

Cell[CellGroupData[{

Cell["CrystalPlot", "ObjectName",
 CellID->1224892054,ExpressionUUID->"52cd1abd-b5c7-4c93-a73d-6158e76574ba"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"6b05dae1-caf0-4c82-8d03-c1022ec91ee7"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["CrystalPlot",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/CrystalPlot"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "b5d8d76b-4444-46f7-94cd-169dd5c1bd66"],
 " \[LineSeparator]plots the atom structure of ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "ddbeff0c-1488-4a30-9304-261abd08ff3e"],
 "."
}], "Usage",
 CellChangeTimes->{{3.760960514918947*^9, 3.760960583718012*^9}},
 CellID->982511436,ExpressionUUID->"200b1f1b-979c-4792-a063-32a3eff57f0f"],

Cell[TextData[{
 "In additions to the options of ",
 Cell[BoxData[
  ButtonBox["Graphics3D",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Graphics3D"]], "InlineFormula",ExpressionUUID->
  "5f490cbc-58f5-4fb6-a625-f4ccbb7ca4cd"],
 ", there are:"
}], "Notes",
 CellChangeTimes->{{3.7612261725070133`*^9, 3.761226173673258*^9}, {
  3.761423287862194*^9, 3.7614233454557533`*^9}},
 CellID->1067943069,ExpressionUUID->"0d8e5b13-0685-4bb7-9a01-6dbcd074ae96"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e0d48ae5-3e43-4232-a79d-17caa56e41de"], "\"\<AxisFunction\>\"", 
    ButtonBox["Line",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/Line"], Cell[
    "function that draws the lattice lines", "TableText",ExpressionUUID->
     "500f5575-6472-49e4-a7f1-4612ff9d6e7a"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "37aacf93-5880-4d12-82f3-807123a160f4"], "\"\<OpacityMap\>\"", 
    RowBox[{"<|", "|>"}], Cell[
    "set an opacity value for the chemical elements", "TableText",
     ExpressionUUID->"5efc41bf-c9f3-4516-a1bd-0ca20f90817e"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4d776630-ec2b-47b7-9167-d97a9cd65f6a"], "\"\<RGBStyle\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[
    "whether to colour the unit cell arrows", "TableText",ExpressionUUID->
     "f2d8ebb9-a6d5-4486-a05e-c9255dc90ba6"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "dc1a2f32-0a03-458a-aa08-7d8fe62df791"], "\"\<StructureSize\>\"", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], Cell[
    "expand crystal to a given size", "TableText",ExpressionUUID->
     "65d08293-3703-4ef1-8b9e-bfb4717bff67"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "42d94f3f-80b9-4e22-9388-8a295ac7e350"], "\"\<UnitCellDisplay\>\"", 
    "\"\<Box\>\"", Cell[TextData[{
     "display unit cell as ",
     StyleBox["\"Box\"", "InlineCode"],
     ", ",
     StyleBox["\"Axes\"", "InlineCode"],
     " or ",
     StyleBox["\"None\"", "InlineCode"]
    }], "TableText",ExpressionUUID->"e6aca777-93ee-4c3e-80a7-c3358ea3e855"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.761226299198666*^9, 3.761226322469947*^9}, {
  3.761243195098405*^9, 3.761243217270948*^9}, {3.782461653929696*^9, 
  3.782461697281765*^9}},
 CellID->135704964,ExpressionUUID->"460fca45-0f8c-47e0-8493-212bd09bc384"],

Cell[TextData[{
 "When using the \"StructureSize\" option, an expanded crystal structure is \
stored in the temporary association ",
 StyleBox["MaXrd`Private`$TempCrystalData", "InlineCode"],
 "."
}], "Notes",
 CellChangeTimes->{{3.76124307693027*^9, 3.761243132326283*^9}},
 CellID->1235062731,ExpressionUUID->"1bbaf56c-e40b-46f0-9e81-dde6f3d0240d"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "8d13fc32-37b0-4702-a731-87b7f84ed877"],
 " is either trigonal or hexagonal and the user does not specify a value for \
the ",
 Cell[BoxData[
  ButtonBox["ViewPoint",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/ViewPoint"]], "InlineFormula",ExpressionUUID->
  "c0634fe9-9d9a-45ea-92b7-6e0302ecd46e"],
 " option, it is set to ",
 Cell[BoxData[
  ButtonBox["Above",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Above"]], "InlineFormula",ExpressionUUID->
  "ceec719d-8cf6-4b3c-be4e-dd74236334dc"],
 "."
}], "Notes",
 CellChangeTimes->{{3.761423354965981*^9, 3.761423444323216*^9}},
 CellID->1798349713,ExpressionUUID->"349f4721-b756-4a4b-ac2b-d1d7de2d14fb"],

Cell[TextData[{
 "The atom radii have been tabulated using the built-in ",
 Cell[BoxData[
  RowBox[{"ElementData", "[", 
   RowBox[{"\"\<<Element>\>\"", ",", "\"\<AtomicRadius\>\""}], "]"}]], "Input",
  CellChangeTimes->{{3.759493445610774*^9, 3.759493457901717*^9}},
  ExpressionUUID->"ba5f70dd-45de-44c7-ad74-41e1c69e300b"],
 ". Elements with missing values have been assigned to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1.5`", "\[CapitalARing]"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6b7ce1eb-db11-4354-b2b2-e1b5a1cd1801"],
 "."
}], "Notes",
 CellChangeTimes->{{3.7617190577390823`*^9, 3.761719077913981*^9}, {
  3.7617191122987556`*^9, 3.761719128532056*^9}, {3.761719172569541*^9, 
  3.76171919856745*^9}, {3.761719238381814*^9, 3.76171924833857*^9}},
 CellID->1514004569,ExpressionUUID->"82c31830-65e5-4a66-a211-f09d7147abb9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"4b23173f-d809-4bc6-815a-006f0cfc557a"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"dd4105dd-44a1-4b5d-b3f1-a17d237f0180"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"8940721b-ac4d-4591-9878-af627e5415df"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"27513b21-4541-410d-b927-930d4d609e97"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"48f00513-0a8e-4cd0-a77a-b4be2e23a918"],

Cell[TextData[{
 "Bianca Eifert and Christian Heiliger's ",
 StyleBox[ButtonBox["Crystallica",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://library.wolfram.com/infocenter/MathSource/9372/"], None}],
  FontSlant->"Italic"],
 ButtonBox[" package",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://library.wolfram.com/infocenter/MathSource/9372/"], None}]
}], "SeeAlso",
 CellChangeTimes->{3.760986231931253*^9},
 CellID->274063637,ExpressionUUID->"4725769a-f85d-4eeb-b0b0-ea83864763f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"6a08a1d4-bb35-40b9-8cd5-72d977de07e2"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d9156422-ae48-479b-a123-a5e4ce507739"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExpandCrystal",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "6439046c-7348-43ff-b203-1f9ecff1848c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["EmbedStructure",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "9db147a7-ffae-44c6-9bdb-6a4b9ecdae96"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DomainPlot",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "9aa54a5d-6749-4079-b89f-c2cb1d8b835d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DistortStructure",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "a4e1a489-5d59-44aa-ba4d-566e192f483c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SynthesiseStructure",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "fd03eb7e-8221-42fb-99cc-aa2626d484e5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SimulateDiffractionPattern",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "793be2f7-39b7-4704-befb-b384e3784a31"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "b9f9a1d2-03af-4342-a2c5-94e9502e1059"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "ac8f01c9-d8b1-41a7-ac4a-5f04cd4382e2"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentPositions",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "4ba46e47-ca8b-465a-bd9f-c3732d08f190"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "dbbcfccf-d56f-4f57-a519-febeec9f602b"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "4bdcb197-3d20-404b-bc0d-01b6d80cc5d6"]
}], "SeeAlso",
 CellChangeTimes->{{3.761226124500935*^9, 3.761226158057522*^9}, {
  3.761721913119915*^9, 3.761721916286165*^9}, {3.7637972306405897`*^9, 
  3.763797233519019*^9}, {3.769496067064848*^9, 3.769496071456506*^9}, {
  3.771238401017809*^9, 3.7712384058235903`*^9}, {3.773736813762566*^9, 
  3.7737368168452873`*^9}, {3.779700220137442*^9, 3.779700221686605*^9}, {
  3.7850577620749903`*^9, 3.7850577620751963`*^9}},
 CellID->570093165,ExpressionUUID->"ee60f268-fc49-482e-91a9-289dcf48b8bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"5bd96727-f02a-4153-80ba-3a64d1340d95"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"d5358051-9846-4bac-9eb1-a1d125032d46"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"0bcf6cee-834d-43b3-b741-0d20a17ca8fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", 
   RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761218166611734*^9, 3.76121820623174*^9}},
 CellLabel->"In[1]:=",
 CellID->501954103,ExpressionUUID->"b4b91e59-b882-43c9-9486-34f89f28f40b"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.64, 0, 0}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.64, 0}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.64}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {5.64, 5.64, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 5.64, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 0., 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {0., 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 5.64, 0.}, {5.64, 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {5.64, 0., 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {0., 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 5.64}, {5.64, 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 5.64}, {5.64, 5.64, 5.64}}]}, 
   {RGBColor[0.658708, 0.492173, 0.842842], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgA2JmBtyg/9BXjZh+NgcYTUgeXR1+fWIY+mDi6Oqw2yeG
wz4xB3SaUvtxmYdLHgDQYGRy
     "], 1.9]}, 
   {RGBColor[0.412698, 0.932689, 0.166398], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgBWJmIO4/9FUjpp/NAZ1mQAOE5NHV4eeLYchjFxfDcBch
/eg0fnWY7iJkHkweACxLZEE=
     "], 0.79]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.7612182322857933`*^9, 3.761218234548995*^9}, 
   3.761218305942045*^9, 3.761225569063299*^9, {3.761229769318568*^9, 
   3.761229788154114*^9}, {3.7614234579841337`*^9, 3.761423534496876*^9}, 
   3.76142441361165*^9, {3.7614252461237497`*^9, 3.761425250300193*^9}},
 CellLabel->"Out[1]=",
 CellID->2040930789,ExpressionUUID->"34babc59-c91a-4a0f-9fc1-a26ae2542816"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", "\"\<Sodalite\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.761218215357348*^9, 3.761218223607098*^9}, {
  3.761218300047222*^9, 3.7612183012454348`*^9}},
 CellLabel->"In[2]:=",
 CellID->62049225,ExpressionUUID->"ddb8bc79-2325-4fa5-a161-6ff3af61848b"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {8.875, 0, 0}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 8.875, 0}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 8.875}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {8.875, 8.875, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 8.875, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 0., 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {0., 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 8.875, 0.}, {8.875, 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {8.875, 0., 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {0., 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 8.875, 8.875}, {8.875, 8.875, 8.875}}]}, 
   {GrayLevel[0], Line3DBox[{{8.875, 0., 8.875}, {8.875, 8.875, 8.875}}]}, 
   {RGBColor[0.658708, 0.492173, 0.842842], 
    SphereBox[{{1.5770875, 1.5770875, 1.5770875}}, 1.9]}, 
   {RGBColor[0.8913, 0.631904, 0.627399], 
    SphereBox[{{2.21875, 0., 4.4375}}, 1.18]}, 
   {RGBColor[0.941176, 0.784314, 0.627451], 
    SphereBox[{{2.21875, 4.4375, 0.}}, 1.11]}, 
   {RGBColor[0.800498, 0.201504, 0.192061], 
    SphereBox[{{1.2309625, 1.31705, 3.8828125}}, 0.48]}, 
   {RGBColor[0.412698, 0.932689, 0.166398], SphereBox[{{0., 0., 0.}}, 0.79]}},
  
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.761218301527401*^9, 3.761218307014676*^9}, 
   3.761219733275292*^9, 3.761225232862555*^9, 3.761225570121337*^9, 
   3.761229790864547*^9, 3.7614234689617043`*^9, 3.761425254879627*^9},
 CellLabel->"Out[2]=",
 CellID->859226195,ExpressionUUID->"b0c9bec2-9a35-405b-b0ce-6b6d8f506cf5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "823b45f3-cf55-4300-92c7-55d1e71049b3"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->442876416,ExpressionUUID->"d8d0a567-577d-4df2-9769-4e61a0558b67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{"\"\<PrussianBlue\>\"", ",", 
   RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"2", ",", "3", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761226025877825*^9, 3.761226082019608*^9}},
 CellLabel->"In[1]:=",
 CellID->2015932236,ExpressionUUID->"fe89c949-9aaa-45ba-af27-f64cdc44a929"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {10.166, 0, 0}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.166, 0}}]]}, 
   {RGBColor[0, 0, 1], 
    Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 10.166}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {10.166, 10.166, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 10.166, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{10.166, 0., 0.}, {10.166, 0., 10.166}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 10.166, 0.}, {0., 10.166, 10.166}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{10.166, 10.166, 0.}, {10.166, 10.166, 10.166}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {10.166, 0., 10.166}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 10.166}, {0., 10.166, 10.166}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{0., 10.166, 10.166}, {10.166, 10.166, 10.166}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{10.166, 0., 10.166}, {10.166, 10.166, 10.166}}]}, 
   {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJy1mF9oj2EUx3+zpNxMWXKxlj+/hKQ2xxabXyMSQq3dqF2sRf40WVErrSQu
pZTduKEp5WZFIZTSXIlcuLCrUa5cuJBaSQs13/16Puc9vQ/1e2/e3s97nvN8
z3nOc97f71k7fK7/xJJKpVJtqlSa/9x/HHlzsaO1qW9y3+Pv8wOti/fPHc0T
31rWOK57o8bp/flTN76OX9rq3pPrPnTsdP/yWxsdn34++Gqss9Nx+aEecepZ
/uHu6K4zO5wect0vv2tZf3Wsy/Gbs90v5gZ7HZcf6hHXfI2Kk5zrFa2H9PC9
9JDrmXGIMw5xxkFOPVwX+SXXeK6XONdLnOtFLj1H5z79mtm+1N3bVoyfbGlp
X7yTlz2TR+//dx7et1+Z2nZhcpOzn9nw7P2eqQ7HZU+/sienPf1HfqJ5qX/k
+MOVT392Ofv7BybevpzpcVz2nFf25LSn/8hPNG+U97I85q5HlK8o77nrGtUN
55E9x+mZ8+iZuuif+iP7snmpn+sie66jOOtBflgP9E/9kX3ZvOKHeu+MvJ5Y
tti/Kn+v9rNtD1Z9bHNcV+44vs8dJzu9F5cd/ZXZcb4yO/ml3oV7ta84zqrT
T56Oqy7a6fvAfJDrejQwe31052aXx9W1dff2DncEv6+q2fHIP/Mi/8XrGcdJ
nYqL+Rdn/tPfCXW95NRPnuanng99l5l/cl1bDh/c/WR/t4vry9D87elrPUH+
Lci/ufzLP/Mv/8X5tyD/5nQqLuZfnPlPfxfV809O/eRpfup8YR1rLj/imi+t
h5qLlzx3n6R5zt8n3J+5+5l9K9oPufsw6kPRPtT8zI/sivtI1ekn53zyz3zI
PznHleni/s/tF8yrOPOa20eiPDEfzB/zwzjJqZ+cumTHPiY7co1jfxNnf0v1
WZB/c/lnfxNnf0vjtCD/5nSyv5Ez/+xjzA/zzP5G/eTsb+TSmdZDzcVL/q/f
ldzvBL8rxfvRgj5hQf1b0D8sqDdz9SZevL7m1lf/vyu49P+bXFejxvG96oR+
xemXPD2fqfbl2lGfzkXIdS5CzvmieKiH78mphzw9/2G8FsRb57p0nkOu85zi
eC2I14J4LYjXXFzp+VKdp+dLVZwn1Vy85LrEqV+8+Hy15vSTN6puyPVcVt/U
IzvqYd3l1mluXXKeRumiHvolj+KIxqV2FsRrTj/3lzj3Vzq/BfFaEK8Fus3F
xf1FPYyX+yg9r645/dxf5MXn4TWnnzy375AX75e4P5blnby4ni2o5/p65PbH
4vq0oK4tqDcL6s2CuC2I24L6MVc/6e8c1oO5evgNTsnHzA==
     "], 0.48]}, 
   {RGBColor[0.878431, 0.4, 0.2], SphereBox[CompressedData["
1:eJyllTFqAzEQRZe4c70XCGztSk2KLNvkAiYnCARsNwmkDeQMuYJzh1wlp3CV
2mCDWYTen28JvLCFRqM/o/9nRvcvb+vXu67rtud/cf73T7//x+d+6szXuk+/
y3qYYr9h4pq4H5vvw+fXSuzxeeJmvBknPpcEf/n38/64ezBxk4mbJO6Mw7iX
fEZz31HwS/swtfJS04E45I+8kkeea8WL9RhsnHKdBJ96lXjJxE0Sl3rN/tSr
3B8Fn3oxD9YTdYnrLOPEPPM+vfgTJ+YtmfhJ+CnxR3M/9smt+66v3RxgH5E3
rcd5v7yv6/dsj/nsDW/s61vzzrzFvLj+cv3Iel4Jvutj8hb3XbaTN9pdP9b0
iOvf1bPWodPB6V7zi3lTHqhn7XPz2PnF/voOunet7f3SOLV8r+en+5xDsb/O
+bZ5rriOLxfP8Rj7E49zWOct/Zn/CfpS5tE=
     "], 1.56]}, 
   {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJy1mD1rVEEUhlclAa3XQhT8YAXRZUE5KKImt1EEwULEKlVgQdMoKthErWzS
iCAq2OgGxFJBFPEf2IhF8KOyEiws/MBOMRDeDPOcOdwR3AtL2OfOnHnPO2fO
3Zvts+dPDdd2Op2fy591y5/FuYm774+tbzq4vi19uX9zcovjusY1j/dHR5//
+H261zCuOOOSa5547TjqO/HgyqZnj3Y7fvLe0qcd/b2Oc70oH+rhfXLqIZee
cr4W5Ju4rl/f70x+uHrA8a2vnnx8eOZQkK8F+VqQrwX5mstLesilh/leOnvr
6/z1KZcvuS5x6henfnHqJx9X3ZDre1t9U4/GUQ/rrrZOa+uS64xLF/UwLnmU
RzQvH2dBvub083yJ83zl61uQrwX5WqDbXF48X9TDfHmOFJ9c83i+yKmf54jx
I1/ydS04L2k/avtjm+/k5Xq2oJ7TftT2x3J9WlDXFtSbBfVmQd4W5G1B/Zir
H/FyPZirh/k1sy8uP/0zvXK/u6rz4sTrmTfXtjXkumrn8X7tPI3Lfes2Gsd4
beO4Xts4xaVe+VzOs+f0k+fzeqvjVvZl4Pwg1/X2xmihv2eX83dhZ/P487l9
zn+u15aP4tMXxS/vZ5wndSov+i9O/8Wpl5z6yXN/kh8b3i1eODJ30PlPruvl
sD+9sdnv8po5vnk0vH048N8C/835r/j0X/HL/lvgvzmdyov+i9N/cfpPTv3k
uT+Jqy/RH3Gtl9fDlMuXvPac5D7XnxOez9rzzL4VnYfacxj1oegcan36o3Hl
PtJz+sm5nuLTD8Un57w2XTz/tf2CvorT19o+EvlEP+gf/WGe5NRPTl0axz6m
ceSax/4mzv6W67PAf3P+s7+Js7/leVrgvzmd7G/k9J99jP7QZ/Y36idnfyOX
zrweply+5P/6XKl9TvC5Uj6PFvQJC+rfgv5hQb2Zqzfx8v6a29/89296Hue/
r/mc7jbjmpf/f2Pg7pPrb/4+knj+PpK44lCPOPXkdZ70kOtv/j6SeP4+krji
UI94+f36/+VZ7lfd1v3I35cHTg+5vjMPceaR94GB08M8FJf7orjkms/9Eud+
iXO/yKXnL4h/XKU=
     "], 0.67]}, 
   {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[CompressedData["
1:eJy1mD1rFUEUhhfTxLTaCIIKC4qF5MpB8Wu9QSQEUVDEIoIGiXiJggG1kQt2
NmIhiIJY6R8QC39DEFvRRizEUiFoKxiI713mOXPYsdiFsOTZmdn3vHPOuXfu
nmu3L1zfUlXV742/qY2/2fX58zfOVcNXp9/9+nNx++R+aWF51/Lcbsd172ue
nt8ZPfkxfnDAPSfX/efc9Nrz0T7Hx/OPtw7OHHRc61CPOPXMfHq9emLliNND
rvvaqa9f3l855PjZldHUm3vHHdc61COu9/UVJzn3K9oP6eFz6SHX/4xDnHGI
Mw5y6uG+aF1yzed+iXO/xLlf5NKz7UX97Onl6cn86t91tFl8ORjvdFxX6Tw+
L52ncXournFcr2sc39c1TutS7+a9HubjrJ1+8nRePRmn/aEf5Lr23jq549vN
/c7Hq2/Xlx4tDIL+VhfHo/Xpi9bP72ccJ3UqLvovTv/TOm31klM/eepP64fq
gv6T6/r++f7D1aXDLq7Zjx8WZ+4eC/y3wH9z/mt9+q/18/5b4L85nYqL/ovT
/7Qvtf6TUz956k/LN/excf6I631pPjQuXvLSOkl9Lq8T1mdpPbNvRfVQWodR
H4rqUO+nPxqX7yO100/O92l9+qH1yTmvSxfrv7Rf0Fdx+lraRyKf6Af9oz+M
k5z6yalL49jHNI5c89jfxNnfUn0W+G/Of/a3yfcn9Lc0Tgv8N6eT/Y2c/rOP
0R/6zP5G/eTsb+TSmeZD4+Il/9/PldLPCX6u5OvRgj5hQf5b0D8syDdz+Sae
319z+6vvvxUuff8l19XXPD5XnnBdca5Lnp6P6mHpOOrTuYRc5xJyvi+Kh3r4
nJx6yNPzF+O1IN6W69J5ilznqXy8FsRrQbwWxGsurvR81/L0fFfjPNe4eMl1
iVO/eP73jcbpJ+8rb8j1f1d+U4/GUQ/zrjRPS/OS7+lLF/VwXfIojmheOs6C
eM3pZ32Js77S91sQrwXxWqDbXFysL+phvKyj9PeixulnfZHnf49qnH7y0r5D
nq+XuD92+U6ez2cL8rndj9L+mM9PC/LagnyzIN8siNuCuC3IH3P5k37PYT6Y
y4e/wYGmxQ==
     "], 0.56]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{3.761226096944695*^9, 3.761229800362793*^9, 
  3.761425259252239*^9},
 CellLabel->"Out[1]=",
 CellID->1135978244,ExpressionUUID->"d1b2185d-5183-41a0-8b49-ebbb51c6377d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c318256a-1c53-4865-99bf-1bd4de423a16"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellChangeTimes->{3.761226023548802*^9},
 CellID->2032412669,ExpressionUUID->"6c7c5e8b-4774-4e22-a97f-a0676ab5b439"],

Cell["\<\
Defining a list of all the \[OpenCurlyDoubleQuote]original\
\[CloseCurlyDoubleQuote] crystal (asymmetric units) that come with the \
package:\
\>", "ExampleText",
 CellChangeTimes->{{3.773943834701523*^9, 3.773943872822659*^9}},
 CellID->79265600,ExpressionUUID->"75e9bc21-8c14-4163-bb4e-cf7f334b47d5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"originalKeys", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Keys", "@", "$CrystalData"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"StringContainsQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"\"\<_\>\"", "~~", "DigitCharacter"}]}], "]"}]}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7739437324716673`*^9, 3.773943739099072*^9}, {
  3.774283790413965*^9, 3.774283792807561*^9}},
 CellLabel->"In[1]:=",
 CellID->349739192,ExpressionUUID->"62804458-5634-4113-ac75-7b046fdd3499"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Aluminium\"\>", ",", "\<\"Austenite\"\>", 
   ",", "\<\"CalciumFluoride\"\>", ",", "\<\"Cobalt(II)Fluoride\"\>", 
   ",", "\<\"Copper\"\>", ",", "\<\"CopperTungstenOxide\"\>", 
   ",", "\<\"Corundum\"\>", ",", "\<\"Diamond\"\>", ",", "\<\"Ferrite\"\>", 
   ",", "\<\"GalliumArsenide\"\>", ",", "\<\"Germanium\"\>", 
   ",", "\<\"Glycyl-L-alanine\"\>", ",", "\<\"Ice\"\>", 
   ",", "\<\"LanthanumHexaboride\"\>", ",", "\<\"LithiumCobaltate\"\>", 
   ",", "\<\"LithiumManganesePhosphate\"\>", ",", "\<\"ManganeseSilicon\"\>", 
   ",", "\<\"Nickel\"\>", ",", "\<\"OxalicAcid\"\>", 
   ",", "\<\"Perovskite\"\>", ",", "\<\"Polonium\"\>", 
   ",", "\<\"PrussianBlue\"\>", ",", "\<\"Quartz\"\>", ",", "\<\"Silicon\"\>",
    ",", "\<\"Silver\"\>", ",", "\<\"Sodalite\"\>", 
   ",", "\<\"SodiumChloride\"\>", ",", "\<\"Sphalerite\"\>", 
   ",", "\<\"Tungsten\"\>", ",", "\<\"Zinc\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.774283804022284*^9, {3.782490665764905*^9, 3.782490681294022*^9}},
 CellLabel->"Out[1]=",
 CellID->1113848323,ExpressionUUID->"23bdd2a2-baee-4675-a8d6-2fe1d29dd971"]
}, Open  ]],

Cell["\<\
Randomly select nine crystals and display the unit cells (name/label shown as \
tooltip):\
\>", "ExampleText",
 CellChangeTimes->{{3.77394412991504*^9, 3.773944158944165*^9}, {
  3.77394422940014*^9, 3.773944239038423*^9}},
 CellID->63117191,ExpressionUUID->"e1adc425-e8c0-43a1-a309-1981dd92d73d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"randomSamples", "=", 
   RowBox[{"RandomSample", "[", 
    RowBox[{"originalKeys", ",", "9"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plots", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"CrystalPlot", "[", 
      RowBox[{"#", ",", 
       RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "&"}], "/@", 
    "randomSamples"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Multicolumn", "[", 
  RowBox[{
   RowBox[{"Thread", "@", 
    RowBox[{"Tooltip", "[", 
     RowBox[{"plots", ",", "randomSamples"}], "]"}]}], ",", "3"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.761225915523323*^9, 3.761225967711649*^9}, {
   3.761242381506178*^9, 3.76124238887903*^9}, {3.761242419897007*^9, 
   3.761242466335561*^9}, {3.761242508105098*^9, 3.7612425220203247`*^9}, {
   3.761243617599581*^9, 3.761243627289792*^9}, {3.761244089777554*^9, 
   3.7612441207693377`*^9}, 3.7739436749332447`*^9, {3.77394374722506*^9, 
   3.773943747612411*^9}, 3.773943780730879*^9, 3.773944248176215*^9},
 CellLabel->"In[2]:=",
 CellID->1674037307,ExpressionUUID->"8155f6c5-de8e-472b-ba00-03e1a35e1d8d"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {3.16469, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 3.16469, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.16469}}]]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.16469, 0.}, {3.16469, 3.16469, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.16469, 0., 0.}, {3.16469, 3.16469, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.16469, 0., 0.}, {3.16469, 0., 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.16469, 0.}, {0., 3.16469, 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.16469, 3.16469, 0.}, {3.16469, 3.16469, 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 3.16469}, {3.16469, 0., 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 3.16469}, {0., 3.16469, 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.16469, 3.16469}, {3.16469, 3.16469, 3.16469}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.16469, 0., 3.16469}, {3.16469, 3.16469, 3.16469}}]}, 
         {RGBColor[0.681179, 0.360409, 0.63675], 
          SphereBox[{{0., 0., 0.}, {1.582345, 1.582345, 1.582345}, {0., 0., 
           3.16469}, {0., 3.16469, 0.}, {0., 3.16469, 3.16469}, {3.16469, 0., 
           0.}, {3.16469, 0., 3.16469}, {3.16469, 3.16469, 0.}, {3.16469, 
           3.16469, 3.16469}}, 1.93]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"Tungsten\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "Tungsten", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {3.345, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 3.345, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.345}}]]}, 
         {GrayLevel[0], Line3DBox[{{0., 3.345, 0.}, {3.345, 3.345, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{3.345, 0., 0.}, {3.345, 3.345, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{3.345, 0., 0.}, {3.345, 0., 3.345}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 3.345, 0.}, {0., 3.345, 3.345}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.345, 3.345, 0.}, {3.345, 3.345, 3.345}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 3.345}, {3.345, 0., 3.345}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 3.345}, {0., 3.345, 3.345}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.345, 3.345}, {3.345, 3.345, 3.345}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.345, 0., 3.345}, {3.345, 3.345, 3.345}}]}, 
         {RGBColor[0.670588, 0.360784, 0], 
          SphereBox[{{0., 0., 0.}, {0., 0., 3.345}, {0., 3.345, 0.}, {0., 
           3.345, 3.345}, {3.345, 0., 0.}, {3.345, 0., 3.345}, {3.345, 3.345, 
           0.}, {3.345, 3.345, 3.345}}, 1.35]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"Polonium\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "Polonium", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.695, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 4.695, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.1785}}]]}, 
         {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {4.695, 4.695, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 4.695, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{4.695, 0., 0.}, {4.695, 0., 3.1785}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 4.695, 0.}, {0., 4.695, 3.1785}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.695, 4.695, 0.}, {4.695, 4.695, 3.1785}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {4.695, 0., 3.1785}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 3.1785}, {0., 4.695, 3.1785}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 4.695, 3.1785}, {4.695, 4.695, 3.1785}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.695, 0., 3.1785}, {4.695, 4.695, 3.1785}}]}, 
         {RGBColor[0.941176, 0.564706, 0.627451], 
          SphereBox[{{0., 0., 0.}, {2.3475, 2.3475, 1.58925}, {0., 0., 
           3.1785}, {0., 4.695, 0.}, {0., 4.695, 3.1785}, {4.695, 0., 0.}, {
           4.695, 0., 3.1785}, {4.695, 4.695, 0.}, {4.695, 4.695, 3.1785}}, 
           1.52]}, 
         {RGBColor[0.578462, 0.85539, 0.408855], 
          SphereBox[{{1.424463, 1.424463, 0.}, {3.270537, 3.270537, 0.}, {
           0.923037, 3.7719630000000004`, 1.58925}, {3.7719630000000004`, 
           0.923037, 1.58925}, {1.424463, 1.424463, 3.1785}, {3.270537, 
           3.270537, 3.1785}}, 0.42]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"Cobalt(II)Fluoride\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "Cobalt(II)Fluoride", "Tooltip"]& ]},
    {
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {3.5236, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 3.5236, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.5236}}]]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.5236, 0.}, {3.5236, 3.5236, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.5236, 0., 0.}, {3.5236, 3.5236, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.5236, 0., 0.}, {3.5236, 0., 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.5236, 0.}, {0., 3.5236, 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.5236, 3.5236, 0.}, {3.5236, 3.5236, 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 3.5236}, {3.5236, 0., 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 3.5236}, {0., 3.5236, 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 3.5236, 3.5236}, {3.5236, 3.5236, 3.5236}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{3.5236, 0., 3.5236}, {3.5236, 3.5236, 3.5236}}]}, 
         {RGBColor[0.313725, 0.815686, 0.313725], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgA2JmBtxApibRKNTgjz2MJiSPrg6/Ph4H7Pp5HNDVYbcP
oR+7uQiaUvtxmYdLHgC+zkKF
           "], 1.49]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"Nickel\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "Nickel", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {8.875, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 8.875, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 8.875}}]]}, 
         {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {8.875, 8.875, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 8.875, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{8.875, 0., 0.}, {8.875, 0., 8.875}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 8.875, 0.}, {0., 8.875, 8.875}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{8.875, 8.875, 0.}, {8.875, 8.875, 8.875}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {8.875, 0., 8.875}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 8.875}, {0., 8.875, 8.875}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 8.875, 8.875}, {8.875, 8.875, 8.875}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{8.875, 0., 8.875}, {8.875, 8.875, 8.875}}]}, 
         {RGBColor[0.658708, 0.492173, 0.842842], 
          SphereBox[{{1.5770875, 1.5770875, 1.5770875}, {7.297912499999999, 
           7.297912499999999, 1.5770875}, {7.297912499999999, 1.5770875, 
           7.297912499999999}, {1.5770875, 7.297912499999999, 
           7.297912499999999}, {6.014587499999999, 6.014587499999999, 
           6.014587499999999}, {2.8604125, 2.8604125, 6.014587499999999}, {
           6.014587499999999, 2.8604125, 2.8604125}, {2.8604125, 
           6.014587499999999, 2.8604125}}, 1.9]}, 
         {RGBColor[0.8913, 0.631904, 0.627399], 
          SphereBox[{{2.21875, 0., 4.4375}, {6.65625, 0., 4.4375}, {4.4375, 
           2.21875, 0.}, {4.4375, 6.65625, 0.}, {0., 4.4375, 2.21875}, {0., 
           4.4375, 6.65625}, {4.4375, 2.21875, 8.875}, {4.4375, 6.65625, 
           8.875}, {2.21875, 8.875, 4.4375}, {6.65625, 8.875, 4.4375}, {8.875,
            4.4375, 2.21875}, {8.875, 4.4375, 6.65625}}, 1.18]}, 
         {RGBColor[0.941176, 0.784314, 0.627451], 
          SphereBox[{{2.21875, 4.4375, 0.}, {6.65625, 4.4375, 0.}, {0., 
           2.21875, 4.4375}, {0., 6.65625, 4.4375}, {4.4375, 0., 2.21875}, {
           4.4375, 0., 6.65625}, {2.21875, 4.4375, 8.875}, {6.65625, 4.4375, 
           8.875}, {4.4375, 8.875, 2.21875}, {4.4375, 8.875, 6.65625}, {8.875,
            2.21875, 4.4375}, {8.875, 6.65625, 4.4375}}, 1.11]}, 
         {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQAGJmIM5bzLiHddNnewm1YNbFQl/tGUBAgN9BZfr/CXWT
5RwqzVbbhVvLOaCLo6j/IewAMwdFPVAcpo8ke4D6iLUH3Tys7sDjblz2w8xp
OxlycAWLuMPtDIb8xjViEPklCg6fc8Jq133jcPDU+6/4dxknXBymHkX8wEN7
mHoUc4Di6OZi1Y/LPqB+rO5Dsg/dXKL8gWQuIX8AAB0qvVM=
           "], 0.48]}, 
         {RGBColor[0.412698, 0.932689, 0.166398], 
          SphereBox[{{0., 0., 0.}, {4.4375, 4.4375, 4.4375}, {0., 0., 
           8.875}, {0., 8.875, 0.}, {0., 8.875, 8.875}, {8.875, 0., 0.}, {
           8.875, 0., 8.875}, {8.875, 8.875, 0.}, {8.875, 8.875, 8.875}}, 
           0.79]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"Sodalite\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "Sodalite", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {10.166, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.166, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 10.166}}]]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 10.166, 0.}, {10.166, 10.166, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{10.166, 0., 0.}, {10.166, 10.166, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{10.166, 0., 0.}, {10.166, 0., 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 10.166, 0.}, {0., 10.166, 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{10.166, 10.166, 0.}, {10.166, 10.166, 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 10.166}, {10.166, 0., 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 0., 10.166}, {0., 10.166, 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 10.166, 10.166}, {10.166, 10.166, 10.166}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{10.166, 0., 10.166}, {10.166, 10.166, 10.166}}]}, 
         {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCwA2JmIP7pd6bKUITRYZHrts9/Q0Tg9GND5qkf+RUwxGE0
rfT5f3vw/4YpKwYtI1CTzs8vB6fRxQnx0cVxyZNrD4z2tlmQc2oqO9xfDFAg
lyuzUey+DIY4DBCrD12eWH0wdTB5mDhMHbp5hNSh20dIHcxcdPdCaBUH7P5U
wXA/ujiqPhUM/YTso5W5uPyBy1yYebD8gZ4+YPkDXRwGaKUPXR7mbnRzYeLo
5qKLo5YPKg7EqkN3H7p+XO5DNx9dHl2cWHOp7W9S3YVLHwDDmB2o
           "], 0.48]}, 
         {RGBColor[0.878431, 0.4, 0.2], SphereBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmIF7kuu3z3xARBwYcgFh5dHUQvooDdnUqDuh87Oai
q0PXj06Tbz9x5qG7g1J5XO7AxcdN44ofXOGKi489/BE0sebh0odLHgDyeOao

           "], 1.56]}, 
         {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJxTTMoPSmViYGAwA2JmIF6cxTr9hhunAwMa+Hj15ex+NhkMcRiglT50+UWu
2z7/DVFxQDcXJo5uLro4TB9MnFh16O5D14/Lfejmo8ujixNrLrX9Taq7cOmr
YUzaXrLxnz1EXARufxHrqZjzdQoO6OIwQKw+dHli9cHUoYabiANMHbp5hNSh
20dIHcxcdPfCwg+7P1Uw3I8ujqpPBUM/IftoZS4uf+AyF2YeavpCxDdquhTB
oGmlDwDCrfeZ
           "], 0.67]}, 
         {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[CompressedData["
1:eJxTTMoPSmViYGAwA2JmIDb46B6Y7sfgsMh12+e/ISJwOswzRT7FUQFDHEbT
Sp/wLJVpU6I54OIMUGBlFzXHsEYGQxwGiNWHLk+sPpg6mDxMHKYO3TxC6tDt
I6QOZi66eyG0igN2f6pguB9dHFWfCoZ+QvbRylxc/sBlLsw8WPpCTx+w9IUu
DgO00ocuD3M3urkwcXRz0cVR85eKA7Hq0N2Hrh+X+9DNR5dHFyfWXGr7m1R3
4dIHAPKeuJM=
           "], 0.56]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"PrussianBlue\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "PrussianBlue", "Tooltip"]& ]},
    {
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.157, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 4.157, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 4.157}}]]}, 
         {GrayLevel[0], Line3DBox[{{0., 4.157, 0.}, {4.157, 4.157, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{4.157, 0., 0.}, {4.157, 4.157, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{4.157, 0., 0.}, {4.157, 0., 4.157}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 4.157, 0.}, {0., 4.157, 4.157}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.157, 4.157, 0.}, {4.157, 4.157, 4.157}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 4.157}, {4.157, 0., 4.157}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 4.157}, {0., 4.157, 4.157}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0., 4.157, 4.157}, {4.157, 4.157, 4.157}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.157, 0., 4.157}, {4.157, 4.157, 4.157}}]}, 
         {RGBColor[0.928084, 0.716075, 0.329427], 
          SphereBox[{{0., 0., 0.}, {0., 0., 4.157}, {0., 4.157, 0.}, {0., 
           4.157, 4.157}, {4.157, 0., 0.}, {4.157, 0., 4.157}, {4.157, 4.157, 
           0.}, {4.157, 4.157, 4.157}}, 1.5]}, 
         {RGBColor[1., 0.709804, 0.709804], 
          SphereBox[{{0.8210074999999999, 2.0785, 2.0785}, {3.3359925, 2.0785,
            2.0785}, {2.0785, 0.8210074999999999, 2.0785}, {2.0785, 3.3359925,
            2.0785}, {2.0785, 2.0785, 0.8210074999999999}, {2.0785, 2.0785, 
           3.3359925}}, 0.87]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"LanthanumHexaboride\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "LanthanumHexaboride", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.7026, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[
           Line3DBox[{{0, 0, 0}, {0.7115829092083156, 5.795377724818515, 
            0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[
           Line3DBox[{{0, 0, 
            0}, {-0.17025370471348072`, -0.15062775394426378`, 
            4.873100811164596}}]]}, 
         {GrayLevel[0], 
          Line3DBox[{{0.7115829092083156, 5.795377724818515, 0.}, {
           5.414182909208316, 5.795377724818515, 0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.7026, 0., 0.}, {5.414182909208316, 5.795377724818515, 
           0.}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.7026, 0., 0.}, {
           4.532346295286519, -0.15062775394426378`, 4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0.7115829092083156, 5.795377724818515, 0.}, {
           0.5413292044948348, 5.644749970874251, 4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{5.414182909208316, 5.795377724818515, 0.}, {
           5.243929204494835, 5.644749970874251, 4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{-0.17025370471348072`, -0.15062775394426378`, 
           4.873100811164596}, {4.532346295286519, -0.15062775394426378`, 
           4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{-0.17025370471348072`, -0.15062775394426378`, 
           4.873100811164596}, {0.5413292044948348, 5.644749970874251, 
           4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{0.5413292044948348, 5.644749970874251, 
           4.873100811164596}, {5.243929204494835, 5.644749970874251, 
           4.873100811164596}}]}, 
         {GrayLevel[0], 
          Line3DBox[{{4.532346295286519, -0.15062775394426378`, 
           4.873100811164596}, {5.243929204494835, 5.644749970874251, 
           4.873100811164596}}]}, 
         {RGBColor[0.784314, 0.501961, 0.2], 
          SphereBox[{{2.757132988728371, 3.786683227283168, 
           1.1929838095812046`}, {2.486796215766464, 1.8580667435910827`, 
           3.680117001583391}}, 1.45]}, 
         {RGBColor[0.681179, 0.360409, 0.63675], 
          SphereBox[{{0.17918834451786758`, 0.967078996151029, 
           1.2391808052710451`}, {5.064740859976967, 4.677670974723222, 
           3.633920005893551}}, 1.93]}, 
         {RGBColor[0.800498, 0.201504, 0.192061], 
          SphereBox[{{1.354921860754267, 1.9847245441740047`, 
           2.068631294339371}, {3.889007343740568, 3.660025426700246, 
           2.804469516825225}, {1.5623922382333288`, 5.041981351935492, 
           2.0998191395308243`}, {3.6815369662615063`, 0.602768618938759, 
           2.773281671633771}, {3.7117348719395302`, 2.1892055660865486`, 
           0.47805118957524684`}, {1.5321943325553047`, 3.4555444047877013`, 
           4.395049621589349}, {4.317226360809002, 5.2535949770775, 
           0.259736273235073}, {0.9267028436858336, 0.39115499379675067`, 
           4.613364537929523}}, 0.48]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"CopperTungstenOxide\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "CopperTungstenOxide", "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       Graphics3DBox[{
         {RGBColor[1, 0, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.64, 0., 0.}}]]}, 
         {RGBColor[0, 1, 0], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.64, 0.}}]]}, 
         {RGBColor[0, 0, 1], 
          Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.64}}]]}, 
         {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {5.64, 5.64, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 5.64, 0.}}]}, 
         {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 0., 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {0., 5.64, 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{5.64, 5.64, 0.}, {5.64, 5.64, 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {5.64, 0., 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {0., 5.64, 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{0., 5.64, 5.64}, {5.64, 5.64, 5.64}}]}, 
         {GrayLevel[0], Line3DBox[{{5.64, 0., 5.64}, {5.64, 5.64, 5.64}}]}, 
         {RGBColor[0.658708, 0.492173, 0.842842], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgA2JmBtyg/9BXjZh+NgcYTUgeXR1+fWIY+mDi6Oqw2yeG
wz4xB3SaUvtxmYdLHgDQYGRy
           "], 1.9]}, 
         {RGBColor[0.412698, 0.932689, 0.166398], SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgBWJmIO4/9FUjpp/NAZ1mQAOE5NHV4eeLYchjFxfDcBch
/eg0fnWY7iJkHkweACxLZEE=
           "], 0.79]}},
        AlignmentPoint->Center,
        AspectRatio->Automatic,
        Axes->False,
        AxesEdge->Automatic,
        AxesLabel->None,
        AxesOrigin->Automatic,
        AxesStyle->{},
        Background->None,
        BaseStyle->{},
        BaselinePosition->Automatic,
        BoxRatios->Automatic,
        BoxStyle->{},
        Boxed->False,
        ClipPlanes->None,
        ClipPlanesStyle->Automatic,
        ColorOutput->Automatic,
        ContentSelectable->Automatic,
        ControllerLinking->Automatic,
        ControllerMethod->Automatic,
        ControllerPath->Automatic,
        CoordinatesToolOptions:>Automatic,
        DisplayFunction->Identity,
        Epilog->{},
        FaceGrids->None,
        FaceGridsStyle->{},
        FormatType->TraditionalForm,
        ImageMargins->0.,
        ImagePadding->All,
        ImageSize->Automatic,
        ImageSizeRaw->Automatic,
        LabelStyle->{},
        Lighting->"Neutral",
        Method->Automatic,
        PlotLabel->None,
        PlotRange->All,
        PlotRangePadding->Automatic,
        PlotRegion->Automatic,
        PreserveImageOptions->Automatic,
        Prolog->{},
        RotationAction->"Fit",
        SphericalRegion->True,
        Ticks->Automatic,
        TicksStyle->{},
        TouchscreenAutoZoom->False,
        ViewAngle->Automatic,
        ViewCenter->Automatic,
        ViewMatrix->Automatic,
        ViewPoint->{1.3, -2.4, 2.},
        ViewProjection->Automatic,
        ViewRange->All,
        ViewVector->Automatic,
        ViewVertical->{0, 0, 1}],
       "\"SodiumChloride\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "SodiumChloride", "Tooltip"]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.761225920386675*^9, 3.761225976381976*^9}, {
  3.761229802086666*^9, 3.761229817083852*^9}, {3.761242393145348*^9, 
  3.761242405124642*^9}, {3.761242439028954*^9, 3.7612424543963842`*^9}, {
  3.761242528202137*^9, 3.761242543891588*^9}, {3.761243627772214*^9, 
  3.76124365914861*^9}, {3.761244117602037*^9, 3.761244137435137*^9}, {
  3.761425266736905*^9, 3.761425279675705*^9}, {3.773943707531098*^9, 
  3.773943710475965*^9}, {3.773943781817265*^9, 3.7739437939120617`*^9}, {
  3.773944260879013*^9, 3.7739442996388483`*^9}},
 CellLabel->"Out[4]=",
 CellID->1797299119,ExpressionUUID->"1d6d5450-f32a-441b-ab6b-eb7946f1ca9b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"d3eb99b0-708d-4dc6-881a-00f37a16fb31"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "45c1ff4e-e193-4e15-998b-e633bb84d4f7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"fe80f798-1b50-466b-b383-ae26a130e2ff"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "7ef202ab-d04e-4e51-9354-1fab5044c3d5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"dbf8af28-ce6d-4296-a1a6-e92bfe1d8bb4"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "d16236a1-6552-4653-911c-2b87f2c532cd"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"0a98d1c3-259d-4b67-823a-7315391921db"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"AxisFunction\"", "ExampleSubsection",ExpressionUUID->
   "6ea50c02-9eba-4a43-98b6-fea1b9c6b809"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.76122661663512*^9, 3.761226619209716*^9}},
 CellID->1757724783,ExpressionUUID->"bc737079-660e-457e-8917-94a70cef31a0"],

Cell[TextData[{
 "Specifies the function used to render the unit cell edges. Typical setting \
would be either ",
 Cell[BoxData[
  ButtonBox["Line",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Line"]], "InlineFormula",ExpressionUUID->
  "2c846de6-0709-433e-b35f-a6e6ad77e467"],
 " or ",
 Cell[BoxData[
  ButtonBox["Tube",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Tube"]], "InlineFormula",ExpressionUUID->
  "66b73707-8cae-4977-a08a-02ff7770bd4d"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.761229955930691*^9, 3.7612300395192633`*^9}, 
   3.7612419219665813`*^9, 3.761241994065544*^9},
 CellID->636709847,ExpressionUUID->"7910e432-37ae-4f17-af38-dbefabf79cd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"CrystalPlot", "[", 
      RowBox[{"\"\<Austenite\>\"", ",", 
       RowBox[{"\"\<AxisFunction\>\"", "\[Rule]", "f"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", 
       RowBox[{"{", 
        RowBox[{"Line", ",", "Tube"}], "}"}]}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"TableDirections", "\[Rule]", "Row"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761226650121354*^9, 3.761226726557349*^9}, {
  3.761229901808947*^9, 3.761229936286688*^9}},
 CellLabel->"In[1]:=",
 CellID->1544660473,ExpressionUUID->"6088cf8b-0ea5-4c96-ba2a-4dd094081dcc"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      Graphics3DBox[{
        {RGBColor[1, 0, 0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {3.581, 0, 0}}]]}, 
        {RGBColor[0, 1, 0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 3.581, 0}}]]}, 
        {RGBColor[0, 0, 1], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 3.581}}]]}, 
        {GrayLevel[0], Line3DBox[{{0., 3.581, 0.}, {3.581, 3.581, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{3.581, 0., 0.}, {3.581, 3.581, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{3.581, 0., 0.}, {3.581, 0., 3.581}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 3.581, 0.}, {0., 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{3.581, 3.581, 0.}, {3.581, 3.581, 3.581}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 3.581}, {3.581, 0., 3.581}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 3.581}, {0., 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{0., 3.581, 3.581}, {3.581, 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{3.581, 0., 3.581}, {3.581, 3.581, 3.581}}]}, 
        {RGBColor[0.878431, 0.4, 0.2], SphereBox[{{0., 0., 0.}}, 1.56]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->{1.3, -2.4, 2.},
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}], 
      Graphics3DBox[{
        {RGBColor[1, 0, 0], 
         Arrow3DBox[TubeBox[{{{0., 0., 0.}, {3.581, 0., 0.}}}]]}, 
        {RGBColor[0, 1, 0], 
         Arrow3DBox[TubeBox[{{{0., 0., 0.}, {0., 3.581, 0.}}}]]}, 
        {RGBColor[0, 0, 1], 
         Arrow3DBox[TubeBox[{{{0., 0., 0.}, {0., 0., 3.581}}}]]}, 
        {GrayLevel[0], TubeBox[{{0., 3.581, 0.}, {3.581, 3.581, 0.}}]}, 
        {GrayLevel[0], TubeBox[{{3.581, 0., 0.}, {3.581, 3.581, 0.}}]}, 
        {GrayLevel[0], TubeBox[{{3.581, 0., 0.}, {3.581, 0., 3.581}}]}, 
        {GrayLevel[0], TubeBox[{{0., 3.581, 0.}, {0., 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         TubeBox[{{3.581, 3.581, 0.}, {3.581, 3.581, 3.581}}]}, 
        {GrayLevel[0], TubeBox[{{0., 0., 3.581}, {3.581, 0., 3.581}}]}, 
        {GrayLevel[0], TubeBox[{{0., 0., 3.581}, {0., 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         TubeBox[{{0., 3.581, 3.581}, {3.581, 3.581, 3.581}}]}, 
        {GrayLevel[0], 
         TubeBox[{{3.581, 0., 3.581}, {3.581, 3.581, 3.581}}]}, 
        {RGBColor[0.878431, 0.4, 0.2], SphereBox[{{0., 0., 0.}}, 1.56]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->{1.3, -2.4, 2.},
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Row],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableDirections -> Row]]]], "Output",
 CellChangeTimes->{{3.761229898358396*^9, 3.7612299422082987`*^9}, 
   3.761425293296363*^9},
 CellLabel->"Out[1]//TableForm=",
 CellID->932924403,ExpressionUUID->"3bd995af-7ff1-40ec-8179-7229d749c85d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"OpacityMap\"", "ExampleSubsection",ExpressionUUID->
   "5c74b4f6-ed75-460e-9a0c-f28c959c1304"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.761226623946904*^9, 3.761226628185692*^9}, {
  3.782461724010541*^9, 3.782461727081251*^9}},
 CellID->565122810,ExpressionUUID->"4c520e9f-5abe-4c7a-9a84-295d7afdf304"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlot", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", 
   RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
   RowBox[{"\"\<OpacityMap\>\"", "\[Rule]", 
    RowBox[{"<|", 
     RowBox[{"\"\<Na\>\"", "\[Rule]", "0.25"}], "|>"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761218166611734*^9, 3.76121820623174*^9}, {
  3.782461730632032*^9, 3.782461758678143*^9}},
 CellLabel->"In[1]:=",
 CellID->807479651,ExpressionUUID->"a40661ce-69ee-44dd-bd62-1d215aa248d4"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.64, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.64, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.64}}]]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {5.64, 5.64, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 5.64, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 0., 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {0., 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 5.64, 0.}, {5.64, 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {5.64, 0., 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {0., 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 5.64, 5.64}, {5.64, 5.64, 5.64}}]}, 
   {GrayLevel[0], Line3DBox[{{5.64, 0., 5.64}, {5.64, 5.64, 5.64}}]}, 
   {RGBColor[0.658708, 0.492173, 0.842842], Opacity[0.25], 
    SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgA2JmBtyg/9BXjZh+NgcYTUgeXR1+fWIY+mDi6Oqw2yeG
wz4xB3SaUvtxmYdLHgDQYGRy
     "], 1.9]}, 
   {RGBColor[0.412698, 0.932689, 0.166398], Opacity[1.], 
    SphereBox[CompressedData["
1:eJxTTMoPSmViYGDgBWJmIO4/9FUjpp/NAZ1mQAOE5NHV4eeLYchjFxfDcBch
/eg0fnWY7iJkHkweACxLZEE=
     "], 0.79]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->{1.3, -2.4, 2.},
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{{3.7612182322857933`*^9, 3.761218234548995*^9}, 
   3.761218305942045*^9, 3.761225569063299*^9, {3.761229769318568*^9, 
   3.761229788154114*^9}, {3.7614234579841337`*^9, 3.761423534496876*^9}, 
   3.76142441361165*^9, {3.7614252461237497`*^9, 3.761425250300193*^9}, {
   3.782461749157316*^9, 3.782461764903941*^9}},
 CellLabel->"Out[1]=",
 CellID->690730269,ExpressionUUID->"0386d5c6-2387-4bc0-8357-3533975577d6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"RGBStyle\"", "ExampleSubsection",ExpressionUUID->
   "b0cbd016-0c7b-4f9c-bb68-ab5d127ac6d3"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.761226623946904*^9, 3.761226628185692*^9}},
 CellID->1295379749,ExpressionUUID->"862de6e5-8b9a-41ca-aaf5-f83002627bfb"],

Cell["\<\
A Boolean option that switches the colour of the lattice vectors on and off.\
\>", "ExampleText",
 CellChangeTimes->{{3.761242070791556*^9, 3.761242083549677*^9}, {
  3.761242150676476*^9, 3.761242177339447*^9}},
 CellID->671668537,ExpressionUUID->"3ee6a56d-890e-4a9a-b1d5-01e53c3a869c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"CrystalPlot", "[", 
      RowBox[{"\"\<Ice\>\"", ",", 
       RowBox[{"\"\<RGBStyle\>\"", "\[Rule]", "f"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"TableDirections", "\[Rule]", "Row"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761226650121354*^9, 3.761226726557349*^9}, {
  3.761229901808947*^9, 3.761229936286688*^9}, {3.7612422467327623`*^9, 
  3.7612422577462*^9}, {3.761242300154488*^9, 3.761242313328659*^9}},
 CellLabel->"In[1]:=",
 CellID->995319396,ExpressionUUID->"19c3d851-d766-435f-9796-54c05406cbed"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      Graphics3DBox[{
        {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {7.82, 0, 0}}]]}, 
        {RGBColor[0, 1, 0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {-3.91, 6.77231865759431, 0}}]]}, 
        {RGBColor[0, 0, 1], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 7.36}}]]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 
          0.}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{7.82, 0., 0.}, {3.91, 6.77231865759431, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{7.82, 0., 0.}, {7.82, 0., 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 0.}, {-3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 7.36}, {7.82, 0., 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{0., 0., 7.36}, {-3.91, 6.77231865759431, 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 7.36}, {3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{7.82, 0., 7.36}, {3.91, 6.77231865759431, 7.36}}]}, 
        {RGBColor[0.800498, 0.201504, 0.192061], 
         SphereBox[{{2.606406, 0., 0.46}, {5.213594, 0., 6.9}}, 0.48]}, 
        {RGBColor[0.65, 0.7, 0.7], 
         SphereBox[{{2.606406, 0., 1.28064}, {3.42516, 0., 0.19136}, {5.62649,
           0.7110934590474025, 7.176}}, 0.53]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->Above,
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}], 
      Graphics3DBox[{
        {GrayLevel[0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {7.82, 0, 0}}]]}, 
        {GrayLevel[0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {-3.91, 6.77231865759431, 0}}]]}, 
        {GrayLevel[0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 7.36}}]]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 
          0.}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{7.82, 0., 0.}, {3.91, 6.77231865759431, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{7.82, 0., 0.}, {7.82, 0., 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 0.}, {-3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{3.91, 6.77231865759431, 0.}, {3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 7.36}, {7.82, 0., 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{0., 0., 7.36}, {-3.91, 6.77231865759431, 7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{-3.91, 6.77231865759431, 7.36}, {3.91, 6.77231865759431, 
          7.36}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{7.82, 0., 7.36}, {3.91, 6.77231865759431, 7.36}}]}, 
        {RGBColor[0.800498, 0.201504, 0.192061], 
         SphereBox[{{2.606406, 0., 0.46}, {5.213594, 0., 6.9}}, 0.48]}, 
        {RGBColor[0.65, 0.7, 0.7], 
         SphereBox[{{2.606406, 0., 1.28064}, {3.42516, 0., 0.19136}, {5.62649,
           0.7110934590474025, 7.176}}, 0.53]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->Above,
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Row],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableDirections -> Row]]]], "Output",
 CellChangeTimes->{3.76124232777841*^9, 3.7614252994267883`*^9},
 CellLabel->"Out[1]//TableForm=",
 CellID->400504520,ExpressionUUID->"35706c67-d00a-40eb-baaf-9e6fc37f1e63"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"StructureSize\"", "ExampleSubsection",ExpressionUUID->
   "177de930-d074-44b5-a5a1-fbbec50c9ecb"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.76122663356923*^9, 3.761226637001432*^9}},
 CellID->622629656,ExpressionUUID->"d87ed259-d7fd-4a7d-8509-4386535c0408"],

Cell["\<\
Specify the structure size of unit cell copies with a tuple of three indices \
(natural numbers).\
\>", "ExampleText",
 CellChangeTimes->{{3.7612429925549927`*^9, 3.761243032496125*^9}, {
  3.761243069263381*^9, 3.761243069415311*^9}, {3.761243403257876*^9, 
  3.761243405944413*^9}},
 CellID->2135776422,ExpressionUUID->"86d00223-a937-4ff8-9db4-bc8b9d0b5968"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"randomCrystal", "=", 
   RowBox[{"RandomChoice", "@", 
    RowBox[{"Keys", "@", "$CrystalData"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"randomSize", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}], ",", "3"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{"randomCrystal", ",", "randomSize", ",", 
   RowBox[{"CrystalPlot", "[", 
    RowBox[{"randomCrystal", ",", 
     RowBox[{"\"\<StructureSize\>\"", "\[Rule]", "randomSize"}]}], "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->{{3.76124274490147*^9, 3.761242799429666*^9}, {
  3.761242850688487*^9, 3.761242923043058*^9}},
 CellLabel->"In[1]:=",
 CellID->861014689,ExpressionUUID->"25478028-4e15-4bc5-83a3-b8ad98e8f9af"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"LithiumManganesePhosphate\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "2"}], "}"}], ",", 
   Graphics3DBox[{
     {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {4.711, 0, 0}}]]}, 
     {RGBColor[0, 1, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 10.374, 0}}]]}, 
     {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 6.038}}]]}, 
     {GrayLevel[0], Line3DBox[{{0., 10.374, 0.}, {4.711, 10.374, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.711, 0., 0.}, {4.711, 10.374, 0.}}]}, 
     {GrayLevel[0], Line3DBox[{{4.711, 0., 0.}, {4.711, 0., 6.038}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 10.374, 0.}, {0., 10.374, 6.038}}]}, 
     {GrayLevel[0], Line3DBox[{{4.711, 10.374, 0.}, {4.711, 10.374, 6.038}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 6.038}, {4.711, 0., 6.038}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 0., 6.038}, {0., 10.374, 6.038}}]}, 
     {GrayLevel[0], Line3DBox[{{0., 10.374, 6.038}, {4.711, 10.374, 6.038}}]}, 
     {GrayLevel[0], 
      Line3DBox[{{4.711, 0., 6.038}, {4.711, 10.374, 6.038}}]}, 
     {RGBColor[0.799435, 0.543572, 0.997559], SphereBox[CompressedData["
1:eJyNmEGLT1EYh6dhYSVpFm8ayU3mLtTodjayMHFqspCyoGQ1mVKUBUViYS0i
rH0B+QSifARZ2MnSQkpslKL+vW7n+f1OUTaP4z338fo//9sc3Lp+bnt5aWnp
19/fO5b+/9eP3x9ufzm8a+P7+zNbez4ub9y48uTr3bcrG/nn5Hnezwnht968
2Le+f5D5eZ48z/v5Y2fO+O/8gh+Sv5+cvi9XL14+fmBdfJPTt50Twunbzgnh
9G3nj5059C0d3yK+j9/9HC99Oya+yb1v6fgW8W3nhHDvW8S3nTP7Lv4dTohv
cvpuH/909uHaSfFNTt92TginbzsnhNO3nT925nC/tbPfKr73n596cO3Cpvgm
9/utnf1W8W3nhHC/3yq+7ZzZd7H30+KbnM/f8hDO52nP5/PslfvI896rr28+
jboqnSRv98I5ITyf088J4e1eOH/szJl92Uly+rKT5PRlJ8npy06S05ed9HPo
Wzq+RXzZSXLvWzq+RXzZSXLvW8SXnczz7CQ5fdlJcvqyk+T0ZSfJ6ctO+jnc
b+3st4ovO0nu91s7+63iy06S+/1W8WUn8zw7Sc7nZyfJ+Ty+k3NH23tnnve+
2vx8Z+XRmnSSvH1Ozgnh+Zx+TghvvTh/7MyZfX0nB+lkzmEnyenrOzlIJ/2c
EE5fdtLPoS87OUgncw47Se592clBOunnhHDvW8TXd3LodHKQTuYcdpKcvr6T
g3TSzwnh9GUn/Rzul50cpJM5h50k9/tlJwfppJ8Twv1+q/j6Tg6dTg6dTpKH
cD4PO7no9hHpJHne+yx2nt9976h0krz9/uKcEJ7P6eeE8Pb7i/PHzpzZl50k
py87SU5fdpKcvuwkOX3ZST+HvqXjW8SXnST3vqXjW8SXnST3vkV82ck8z06S
05edJKcvO0lOX3aSnL7spJ/D/dbOfqv4spPkfr+1s98qvuwkud9vFV92Ms+z
k+R8fnaSnM/j3ycn6SR522fyEN72mefne/173SS98jyE817/c7xJukHu7+X7
0iQd8Ofne/17ziSfX89DOO/1P9ea5HNE7n35/jDJ58Kfn+/13/tT53ufPITz
Xv5//gN92y/1
       "], 1.67]}, 
     {RGBColor[0.611765, 0.478431, 0.780392], SphereBox[CompressedData["
1:eJxl00tIlGEYhuHRiQpJIatNppmidhhstMiNOn+Iw0RkWQjRqGRkFBmTbtRS
iwwHO0BElkQ0RkSIuKrEosII7CAthEJdtIikGCRC0cxIys3j4n4X3+ZdXN+z
uTccCe2vjnW5XF0Lz73wXL7CpunSRGewoTUlNWGZMz3/sSGa+duX1zL1qun1
gO/C6i9D0dlkp/5lZO3W5EQnoSf75uhQjLP+YOT52OnYxfunPzXZgXG3c/L6
iRZ/euqiQ7+2IG7kvjfFob+j8tmuFWkZxtedvhz5D/y5M0taN5v9h+YGov2f
c8z+s4VPyx8FN5n9oeb5J1W1uWa/fO6Xz/3yuV8+918ZqZp07uWZ/Td62w/X
F+Sb/fUHMjI64/PM/u6cQU/qcL7ZL5/75XO/fO6Xz/1fi9c8PufaafZ/93ZP
3C4pMvtH3bN7evocs3+y7k1pqLPI7JfP/fK5Xz73y+f+f5HGn5Vev9nvvhyf
daYlYPbPVATbL30rNvsTPmy5WvI2YPbL53753C+f++XLmVvuD8V2pJl+x49V
BDyVqxz227ixuvfviyTTb8W+i43b368z/dLXv/S1k77u9Lmf/cpnv/LZr3z2
S5/72S997me/8tmvfPYrn/3KZ7/0uZ/90ud+9iuf/cpnv/LZr3z2S5/72S99
7me/8tmvfPYrn/3KZ7/0uZ/90ud+9ls3VdMVF+Mx/U7cKStLSUo3/fY1j4WX
7s4y/T5cGT2VNpxl+qWvf+lrJ33d6XM/+5XPfuWzX/nslz73s1/63M9+5bNf
+exXPvuVz37pcz/7pc/97Fc++5XPfuWzX/nslz73s1/63M9+5bNf+exXPvuV
z37pcz/7pc/97PfXj3fH2/tyTb9H25raMsMe0++tbefLw0Gv6ffafHhvx12v
6Ze+/qWvnfR1p8/97Fc++5XPfuWzX/rcz37pcz/7lc9+5bNf+exXPvulz/3s
lz73s1/57Fc++5XPfuWzX/rcz37pcz/7lc9+5bNf+exXPvulz/3slz73s9//
uz1RYQ==
       "], 1.61]}, 
     {RGBColor[1., 0.501961, 0], SphereBox[CompressedData["
1:eJxl00lI1GEch/GxFUSZ0YacmTRqwsEQcUoUM3P+mUtKh+ygFVEhJFFhlC2G
0QJRUCiatNFhFFO6RBt0UExFgg5BizEVdDGihciMhgiszMu3w/M7vJff4fN+
L8/S+v2bds1yuVxdM2/2zHOvSIyn756OPKm8daEgOBmJ/3nZ/Dn0K7Kt9XJ1
6u+5zrGhRekFA0Hn6MNoIDcj1Rk8vLzRXZHinFrYV/3tgef/vWasvNS95E2k
of94e+JjnyOH/oE1ia96wosd+gXb+6uSgpnG152+HPn7UuYPjY6GHO7/2Rk7
s2Uwz+y/3/T+YjyQY/aPvfsYGOkIm/3yuV8+98vnfvncP1m8obZrJN/sD6+P
TqVllJj9CyaKhgu/Fpr9SVfudJz8XmT2y+d++dwvn/vlc/+l5vMNtz2O2Z//
N2/V3pIysz/0/PT1lr61Zn9Pb/Gc6M1Ss18+98vnfvncL5/7776Y6G5zys3+
ms1XD1U3Vpn967I/xLbGKsz+4emuyInXlWa/fO6Xz/3yuV++nPwdG6Np9wIO
++32Xzvnj2WYfuturP7kdgdNv1nhg7Upe7wO+6Wvf+lrJ33d6XM/+5XPfuWz
X/nslz73s1/63M9+5bNf+exXPvuVz37pcz/7pc/97Fc++5XPfuWzX/nslz73
s1/63M9+5bNf+exXPvuVz37pcz/7pc/97Nfrf+ryPgqZfquO/Ih767JMv89a
6/2+lmzTb2vCzree7mWmX/r6l7520tedPvezX/nsVz77lc9+6XM/+6XP/exX
PvuVz37ls1/57Jc+97Nf+tzPfuWzX/nsVz77lc9+6XM/+6XP/exXPvuVz37l
s1/57Jc+97Nf+tzPfisSpnxtvrDpdzw3ubNtPGz67R0oy2xvWmn6nfflbLI/
Ocf0S1//0tdO+rrT5372K5/9yme/8tkvfe5nv/S5n/3KZ7/y2a989iuf/dLn
fvZLn/vZr3z2K5/9yme/8tkvfe5nv/S5n/3KZ7/y2a989iuf/dLnfvZLn/vZ
7z9N0AhN
       "], 0.98]}, 
     {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[CompressedData["
1:eJxl13+s13UdxXEmNxZ0ZQ0d3ASFK1xSr+G9SHdGXu5HRa4gZQY1LcbgZqVB
XJQQBLxDmVxGlEk/uIMcUJlexm4tc0rdVYNVpoTNsS41zcnIdTeZ00X8NOKf
0x+P9z+wvffZ85x7trPzfdV3dH72yxcNGTJk/YV/hl74f0n/N75bN7O22v7o
d7o/svJo27/fP7x6cPKptvde/VTHh4+81zZ7Ud3nGnsmVqt+s/Oy6y4fVeV9
/F07+/+2fNT/38P5w+oNV0wYOaYKR/79rSMGftx0RSW/ZeGvZtde2VDw8y4/
nLw/uXzExkNvNVT6X3hsfv3hxmmF/0cvffPlwZMfK/wv2Xpf16yJTYX/8PUf
vv7D13/4+t/09p/3Ncz7eOF/W8/lPVu/OaPwv3bGvgXPfvEThf+nZk09UbNh
euE/fP2Hr//w9R++/vfv+kHTsV+0Ff7vnbyi+5mVMwv/Xzj9u8EXXr+p8N/5
8PvPLb7/5sJ/+PoPX//h6z98/Xft+dm8O4ffWvh/bP3A/u6nZhf+V81raOi5
uL3wv2Vg8bvV7vbCf/j6D1//4es//HC+V1fz+ZEPTyj629f+5ppLvz2msr95
t7/h2F/50ZUfn/LzLl//9jcc+5t3+xuO/ZWvf/srX//2N+/2Nxz7m3f7G479
la9/+ytf//Y37/Y3HPubd/sbjv2Vr3/7K1//9jfv9jcc+5t3+xuO/ZWvf/sr
X//29+KLGrtHD15d9Pcz39q2bNT1DUV/825/w7G/8qMrPz7l512+/u1vOPY3
7/Y3HPsrX//2V77+7W/e7W849jfv9jcc+ytf//ZXvv7tb97tbzj2N+/2Nxz7
K1//9le+/u1v3u1vOPY37/Y3HPsrX//2V77+7e+BE1cteHxPc9HfPz14wdjO
KUV/825/w7G/8qMrPz7l512+/u1vOPY37/Y3HPsrX//2V77+7W/e7W849jfv
9jcc+ytf//ZXvv7tb97tbzj2N+/2Nxz7K1//9le+/u1v3u1vOPY37/Y3HPsr
X//2V77+7a/3pr/b0xd/56eP3gXpo3dE+N4d4fs7P3zvgvD1n77oP33Rf/qo
//RR/+HrP3z9h6//8PWfvug/fdF/+qj/9FH/4es/fP2Hr//w9Z++6D990X/6
qP/0Uf/h6z98/Yev//D1n77oP33Rf/qo//RR/+HrP3z9h6//8P0dbn+9N/2d
b3+9Z70j7K98f+fbX/n6t7/em/q3v96z+re/8vVvf+Xr3/56b+rf/nrP6t/+
yte//ZWvf/vrval/++s9q3/7K1//9le+/u2v96b+7a/3rP7tr3z921/5/g63
v96b/s63v96z3hH2V76/8+2vfP3bX+9N/dtf71n921/5+re/8vVvf7039W9/
vWf1b3/l69/+yte//fXe1L/99Z7Vv/2Vr3/7K1//9td7U//213tW//ZXvv7t
r3x/h9tf701/59tf71nvCPsr39/59le+/u2v96b+7a/3rP7tr3z921/5+re/
3pv6t7/es/q3v/L1b3/l69/+em/q3/56z+rf/srXv/2Vr3/7672pf/vrPat/
+ytf//ZXfjgvfuVHX+r49PG2HV17u8/3nm1rv6Nl853rft82tfbZxk0LRla7
juw4d+Oc+upfHauf6OsaXv1kacvZZxpHVD1PzB1zpvdD1UO3b3h72Nox1foH
Xtr6zgdPtl22ad0r53rHVud7mhdNemVYJSffq5vv5cSPuvEjp/Pnkz9w8NW6
QveX215cNGHFlYX/5yftnXrqLx8tdKf/88HDrX+sLzj5Xt18Lyd+1I2fcGad
2viP/mlXVea/edfoE6/VXF/k//ct96w429tY5F/99ek9rXOai/zDMf/omn84
5h9d8w/H/KNr/uGYf3TNPxzzj675h2P+0TX/BU21b41b01Lkf2D+G0t23NNa
5P/TM2ua+qfdUOT/0Obl9ed6P1nkH475R9f8wzH/6Jp/OOYfXfMPx/yja/7h
mH90zT8c84+u+d/+wNf6ji+tivy7aua/e+3RW4r8lw/sntc656Yi/7t3jpv7
es0tRf7hmH90zT8c84+u+Ydj/tE1/3DMP7rmH475R9f8wzH/6Jr/vQcPDR78
4a1F/tsXvnBt7ajZRf5bmoc9Pm7NrCL/VafXd/dPu63IPxzzj675h2P+0TX/
cMw/uuYfjvlH1/zDMf/omn845h/d+Hl5/P6+1x4ZXbm/G/decuM1Q+uL/Z05
fPCNY8fHF/u7tXNI+9ztdZX7Kyffq5vv5cSPuvEjJ3+vuvl75SRPdZOnnHyv
br6XEz/qmr/7G133Nxz3N7rurxzzd3/lmL/7K8f83V855u/+yjF/91eO+bu/
4bi/0XV/w3F/o+v+yjF/91eO+bu/cszf/ZVj/u6vHPN3f+WYv/sbjvsbXfc3
HPc3uu6vHPN3f+WYv/srx/zdXznm7/7KMX/3V475u7/huL/RdX/DcX+j6/7K
MX/3V475u79yzN/9lWP+7q8c83d/5Zi/+7vwdPem/+ydVOzv+e9P//rUzmuK
/R27bOzuMx1XF/t7c/3T86fsayj2V06+Vzffy4kfdeNHTv5edfP3ykme6iZP
Ofle3XwvJ37UNX/3N7rubzjub3TdXznm7/7KMX/3V475u79yzN/9lWP+7q8c
83d/w3F/o+v+huP+Rtf9lWP+7q8c83d/5Zi/+yvH/N1fOebv/soxf/c3HPc3
uu5vOO5vdN1fOebv/soxf/dXjvm7v3LM3/2VY/7urxzzd3/DcX+j6/6G4/5G
1/2VY/7urxzzd3/lmL/7K8f83V855u/+yjF/93fgaN++/9ZNKfa3/7dNdzx5
vLnY35ca6+975KvNxf7+esShx1oariv2V06+Vzffy4kfdeNHTv5edfP3ykme
6iZPOfle3XwvJ37UNX/3N7rubzjub3TdXznm7/7KMX/3V475u79yzN/9lWP+
7q8c83d/w3F/o+v+huP+Rtf9lWP+7q8c83d/5Zi/+yvH/N1fOebv/soxf/c3
HPc3uu5vOO5vdN1fOebv/soxf/dXjvm7v3LM3/2VY/7urxzzd3/DcX+j6/6G
4/5G1/2VY/7urxzzd3/lmL/7K8f83V855u/+yjF/9/d/7YN7iA==
       "], 0.48]}},
    AlignmentPoint->Center,
    AspectRatio->Automatic,
    Axes->False,
    AxesEdge->Automatic,
    AxesLabel->None,
    AxesOrigin->Automatic,
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    BoxRatios->Automatic,
    BoxStyle->{},
    Boxed->False,
    ClipPlanes->None,
    ClipPlanesStyle->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    ControllerLinking->Automatic,
    ControllerMethod->Automatic,
    ControllerPath->Automatic,
    CoordinatesToolOptions:>Automatic,
    DisplayFunction->Identity,
    Epilog->{},
    FaceGrids->None,
    FaceGridsStyle->{},
    FormatType->TraditionalForm,
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    ImageSizeRaw->Automatic,
    LabelStyle->{},
    Lighting->"Neutral",
    Method->Automatic,
    PlotLabel->None,
    PlotRange->All,
    PlotRangePadding->Automatic,
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotationAction->"Fit",
    SphericalRegion->True,
    Ticks->Automatic,
    TicksStyle->{},
    TouchscreenAutoZoom->False,
    ViewAngle->Automatic,
    ViewCenter->Automatic,
    ViewMatrix->Automatic,
    ViewPoint->{1.3, -2.4, 2.},
    ViewProjection->Automatic,
    ViewRange->All,
    ViewVector->Automatic,
    ViewVertical->{0, 0, 1}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7612427607841463`*^9, 3.761242803033646*^9}, {
  3.761242852935505*^9, 3.7612429778304653`*^9}, {3.761425307987193*^9, 
  3.761425309738161*^9}},
 CellLabel->"Out[3]=",
 CellID->1664767012,ExpressionUUID->"463b0dbe-fc4f-4e9e-910f-b79fbd390def"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"UnitCellDisplay\"", "ExampleSubsection",ExpressionUUID->
   "a058c37e-9562-4c84-b6fb-bedd28df1729"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.761226641321109*^9, 3.761226646600968*^9}},
 CellID->1996300208,ExpressionUUID->"97d7067d-b0ee-4baa-9d6a-3f9897ab348d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"CrystalPlot", "[", 
      RowBox[{"\"\<SodiumChloride\>\"", ",", 
       RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "d"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"d", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Box\>\"", ",", "\"\<Axes\>\"", ",", "\"\<None\>\""}], 
        "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"TableDirections", "\[Rule]", "Row"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.761243315119256*^9, 3.7612433448906927`*^9}, {
  3.7612434552968407`*^9, 3.761243519678879*^9}},
 CellLabel->"In[1]:=",
 CellID->1382398338,ExpressionUUID->"351c4ea9-9804-4734-b5a7-17b48da0c81c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      Graphics3DBox[{
        {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.64, 0, 0}}]]}, 
        {RGBColor[0, 1, 0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.64, 0}}]]}, 
        {RGBColor[0, 0, 1], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.64}}]]}, 
        {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {5.64, 5.64, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 5.64, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{5.64, 0., 0.}, {5.64, 0., 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 5.64, 0.}, {0., 5.64, 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{5.64, 5.64, 0.}, {5.64, 5.64, 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {5.64, 0., 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 5.64}, {0., 5.64, 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 5.64, 5.64}, {5.64, 5.64, 5.64}}]}, 
        {GrayLevel[0], Line3DBox[{{5.64, 0., 5.64}, {5.64, 5.64, 5.64}}]}, 
        {RGBColor[0.658708, 0.492173, 0.842842], 
         SphereBox[{{0., 0., 0.}}, 1.9]}, 
        {RGBColor[0.412698, 0.932689, 0.166398], 
         SphereBox[{{2.82, 2.82, 2.82}}, 0.79]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->{1.3, -2.4, 2.},
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}], 
      Graphics3DBox[{
        {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {5.64, 0, 0}}]]}, 
        {RGBColor[0, 1, 0], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 5.64, 0}}]]}, 
        {RGBColor[0, 0, 1], 
         Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.64}}]]}, 
        {RGBColor[0.658708, 0.492173, 0.842842], 
         SphereBox[{{0., 0., 0.}}, 1.9]}, 
        {RGBColor[0.412698, 0.932689, 0.166398], 
         SphereBox[{{2.82, 2.82, 2.82}}, 0.79]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->{1.3, -2.4, 2.},
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}], 
      Graphics3DBox[{
        {RGBColor[0.658708, 0.492173, 0.842842], 
         SphereBox[{{0., 0., 0.}}, 1.9]}, 
        {RGBColor[0.412698, 0.932689, 0.166398], 
         SphereBox[{{2.82, 2.82, 2.82}}, 0.79]}},
       AlignmentPoint->Center,
       AspectRatio->Automatic,
       Axes->False,
       AxesEdge->Automatic,
       AxesLabel->None,
       AxesOrigin->Automatic,
       AxesStyle->{},
       Background->None,
       BaseStyle->{},
       BaselinePosition->Automatic,
       BoxRatios->Automatic,
       BoxStyle->{},
       Boxed->False,
       ClipPlanes->None,
       ClipPlanesStyle->Automatic,
       ColorOutput->Automatic,
       ContentSelectable->Automatic,
       ControllerLinking->Automatic,
       ControllerMethod->Automatic,
       ControllerPath->Automatic,
       CoordinatesToolOptions:>Automatic,
       DisplayFunction->Identity,
       Epilog->{},
       FaceGrids->None,
       FaceGridsStyle->{},
       FormatType->TraditionalForm,
       ImageMargins->0.,
       ImagePadding->All,
       ImageSize->Automatic,
       ImageSizeRaw->Automatic,
       LabelStyle->{},
       Lighting->"Neutral",
       Method->Automatic,
       PlotLabel->None,
       PlotRange->All,
       PlotRangePadding->Automatic,
       PlotRegion->Automatic,
       PreserveImageOptions->Automatic,
       Prolog->{},
       RotationAction->"Fit",
       SphericalRegion->True,
       Ticks->Automatic,
       TicksStyle->{},
       TouchscreenAutoZoom->False,
       ViewAngle->Automatic,
       ViewCenter->Automatic,
       ViewMatrix->Automatic,
       ViewPoint->{1.3, -2.4, 2.},
       ViewProjection->Automatic,
       ViewRange->All,
       ViewVector->Automatic,
       ViewVertical->{0, 0, 1}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Row],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableDirections -> Row]]]], "Output",
 CellChangeTimes->{
  3.761243345097241*^9, {3.761243511389065*^9, 3.761243521884166*^9}, 
   3.761425318858611*^9},
 CellLabel->"Out[1]//TableForm=",
 CellID->801797854,ExpressionUUID->"4b7825d6-9adf-4111-82a1-c3698cde10f8"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "b2784296-1db3-48e4-966b-a27b93f709e7"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1680578775,ExpressionUUID->"00c65461-be4f-4b12-ace5-9a8be9ffd663"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "5664bede-5e3e-4ada-931d-40b680912a51"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"b9c26ae7-1646-4dec-83f4-f3b9f3649bea"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "e83f9a79-e86d-4100-b056-e40f584b8c53"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"baabaf0c-d4c3-4489-94b6-05b20e8582ad"],

Cell[TextData[{
 "See also Bianca Eifert and Christian Heiliger's ",
 StyleBox[ButtonBox["Crystallica",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://library.wolfram.com/infocenter/MathSource/9372/"], None}],
  FontSlant->"Italic"],
 ButtonBox[" package",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://library.wolfram.com/infocenter/MathSource/9372/"], None}],
 " which specialises in such plots. The function name ",
 Cell[BoxData[
  ButtonBox["CrystalPlot",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalPlot"]], "InlineFormula",
  ExpressionUUID->"b5942c64-1379-4f03-bfdc-5b5c916e1643"],
 " appear in both the ",
 StyleBox["Crystallica`", "InlineCode"],
 " and ",
 StyleBox["MaXrd`", "InlineCode"],
 " contexts. The warning message is suppressed here."
}], "ExampleText",
 CellChangeTimes->{{3.760985813426058*^9, 3.760985867503759*^9}, {
  3.760985904215742*^9, 3.760985920215193*^9}, {3.760985955015985*^9, 
  3.760985980909731*^9}, {3.7609860938355513`*^9, 3.7609861844575*^9}},
 CellID->1093980736,ExpressionUUID->"c14a6fa1-d03d-4c2f-b25b-3d62362feaa5"],

Cell[BoxData[
 RowBox[{"Quiet", "@", 
  RowBox[{"Needs", "[", "\"\<Crystallica`\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.760985925568192*^9, 3.760985950225016*^9}, {
  3.760986007615472*^9, 3.7609860777476254`*^9}},
 CellLabel->"In[1]:=",
 CellID->1272020656,ExpressionUUID->"411c9200-6efb-436b-a55d-8197d0897a91"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrystalPlotUsingCrystallica", "[", "crystal_String", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"lattvec", ",", "coord", ",", "conf"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"lattvec", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"GetLatticeParameters", "[", 
         RowBox[{"crystal", ",", 
          RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}], ",", "3"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"coord", "=", 
      RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
       RowBox[{
       "crystal", ",", "\"\<AtomData\>\"", ",", "All", ",", 
        "\"\<FractionalCoordinates\>\""}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"conf", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"$PeriodicTable", "\[LeftDoubleBracket]", 
         RowBox[{"#", ",", "\"\<AtomicNumber\>\""}], 
         "\[RightDoubleBracket]"}], "&"}], "/@", 
       RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
        RowBox[{
        "crystal", ",", "\"\<AtomData\>\"", ",", "All", ",", 
         "\"\<Element\>\""}], "\[RightDoubleBracket]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Crystallica`CrystalPlot", "[", 
      RowBox[{"lattvec", ",", "coord", ",", "conf"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.760986383738832*^9, 3.7609864711713133`*^9}, {
  3.76098664156114*^9, 3.760986642384354*^9}, {3.761225577200129*^9, 
  3.7612255809760942`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[2]:=",
 CellID->1044862595,ExpressionUUID->"723b73dd-563b-4fef-8831-d41b0ba63b4d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlotUsingCrystallica", "[", "\"\<SodiumChloride\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.760986477476055*^9, 3.760986490810807*^9}, {
  3.760986531951189*^9, 3.760986548121146*^9}, {3.76098683690854*^9, 
  3.760986887929109*^9}},
 CellLabel->"In[3]:=",
 CellID->808776150,ExpressionUUID->"32515beb-fcc0-44de-ae55-baedbf8f9353"],

Cell[BoxData[
 Graphics3DBox[{{
    {GrayLevel[0], 
     TubeBox[{{{0., 0., 0.}, {5.64, 0., 0.}, {5.64, 5.64, 0.}, {0., 5.64, 
      0.}, {0., 0., 0.}}, {{0., 0., 5.64}, {5.64, 0., 5.64}, {5.64, 5.64, 
      5.64}, {0., 5.64, 5.64}, {0., 0., 5.64}}}, 0.02]}, 
    {GrayLevel[0], 
     TubeBox[{{{0., 0., 0.}, {0., 0., 5.64}}, {{5.64, 0., 0.}, {5.64, 0., 
      5.64}}, {{5.64, 5.64, 0.}, {5.64, 5.64, 5.64}}, {{0., 5.64, 0.}, {0., 
      5.64, 5.64}}}, 0.02]}}, {
    {GrayLevel[0], 
     TubeBox[{{0, 0, 0}, {4.9516977408144, 0., 0.}, {4.9516977408144, 0., 
       0.}, {5.64, 0, 0}}, {0.021, 0.021, 0.17207556479639985`, 0}]}, 
    {GrayLevel[0], 
     TubeBox[{{0, 0, 0}, {0., 4.9516977408144, 0.}, {0., 4.9516977408144, 
       0.}, {0, 5.64, 0}}, {0.021, 0.021, 0.17207556479639985`, 0}]}, 
    {GrayLevel[0], 
     TubeBox[{{0, 0, 0}, {0., 0., 4.9516977408144}, {0., 0., 
       4.9516977408144}, {0, 0, 5.64}}, {
      0.021, 0.021, 0.17207556479639985`, 0}]}}, 
   TagBox[
    TooltipBox[
     {RGBColor[0.915, 0.3325, 0.2125], 
      TagBox[SphereBox[{0., 0., 0.}, 0.5],
       "Ball"]},
     "1"],
    Annotation[#, 1, "Tooltip"]& ], 
   TagBox[
    TooltipBox[
     {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
      TagBox[SphereBox[{2.82, 2.82, 2.82}, 0.5],
       "Ball"]},
     "2"],
    Annotation[#, 2, "Tooltip"]& ]},
  BaseStyle->{
    Specularity[
     GrayLevel[0.5], 100]},
  Boxed->False,
  Lighting->"Neutral",
  SphericalRegion->True]], "Output",
 CellChangeTimes->{{3.761225583532504*^9, 3.761225594865943*^9}, {
  3.761225638176828*^9, 3.761225645702243*^9}},
 CellLabel->"Out[3]=",
 CellID->80635928,ExpressionUUID->"c860ef50-b69d-4458-9fae-1938411780e9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrystalPlotUsingBoth", "[", "crystal_String", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"CrystallicaVersion", ",", "MaXrdVersion"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"CrystallicaVersion", "=", 
      RowBox[{"CrystalPlotUsingCrystallica", "[", "crystal", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MaXrdVersion", "=", 
      RowBox[{"MaXrd`CrystalPlot", "[", 
       RowBox[{"crystal", ",", 
        RowBox[{"\"\<RGBStyle\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TableForm", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CrystallicaVersion", ",", "MaXrdVersion"}], "}"}], ",", 
       RowBox[{"TableDirections", "\[Rule]", "Row"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.760986383738832*^9, 3.7609864711713133`*^9}, {
  3.760986626514366*^9, 3.760986696912396*^9}, {3.760986730647809*^9, 
  3.7609867351583843`*^9}, {3.760986788287446*^9, 3.76098681188393*^9}, {
  3.761225605008932*^9, 3.7612256086701307`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[4]:=",
 CellID->1125188443,ExpressionUUID->"7957b538-bdc5-4255-8f67-22c8d61e23de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalPlotUsingBoth", "[", "\"\<Glycyl-L-alanine\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.760986740062293*^9, 3.760986746830125*^9}},
 CellLabel->"In[5]:=",
 CellID->681329544,ExpressionUUID->"78f55476-9ad8-4de2-9138-69bb87572adf"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      Graphics3DBox[{{
         {GrayLevel[0], 
          TubeBox[{{{0., 0., 0.}, {9.693, 0., 0.}, {9.693, 9.524, 0.}, {0., 
           9.524, 0.}, {0., 0., 0.}}, {{0., 0., 7.537}, {9.693, 0., 7.537}, {
           9.693, 9.524, 7.537}, {0., 9.524, 7.537}, {0., 0., 7.537}}}, 
           0.02]}, 
         {GrayLevel[0], 
          TubeBox[{{{0., 0., 0.}, {0., 0., 7.537}}, {{9.693, 0., 0.}, {9.693, 
           0., 7.537}}, {{9.693, 9.524, 0.}, {9.693, 9.524, 7.537}}, {{0., 
           9.524, 0.}, {0., 9.524, 7.537}}}, 0.02]}}, {
         {GrayLevel[0], 
          TubeBox[{{0, 0, 0}, {8.82748743509987, 0., 0.}, {8.82748743509987, 
            0., 0.}, {9.693, 0, 0}}, {
           0.021, 0.021, 0.21637814122503224`, 0}]}, 
         {GrayLevel[0], 
          TubeBox[{{0, 0, 0}, {0., 8.65848743509987, 0.}, {0., 
            8.65848743509987, 0.}, {0, 9.524, 0}}, {
           0.021, 0.021, 0.21637814122503224`, 0}]}, 
         {GrayLevel[0], 
          TubeBox[{{0, 0, 0}, {0., 0., 6.671487435099871}, {0., 0., 
            6.671487435099871}, {0, 0, 7.537}}, {
           0.021, 0.021, 0.21637814122503224`, 0}]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {
           1.3686516000000002`, 8.933988199999998, 6.9204734000000006`}}, 
           0.15]}, 
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.3686516000000002`, 
           8.933988199999998, 6.9204734000000006`}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {1.47769785, 
           9.268280599999999, 7.8897316}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.4927219999999999`, 9.076372, 8.350996}, {1.47769785, 
           9.268280599999999, 7.8897316}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {1.83149235, 
           9.663526599999999, 7.3395306}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.200311, 9.866864, 7.2505939999999995`}, {1.83149235, 
           9.663526599999999, 7.3395306}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {1.11905685, 
           9.787338599999998, 7.448817099999999}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.77544, 10.114488, 7.469167}, {1.11905685, 
           9.787338599999998, 7.448817099999999}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {
           0.9688153500000001, 8.663506599999998, 7.0154396000000006`}}, 
           0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.474957, 7.8668239999999985`, 6.602412}, {
           0.9688153500000001, 8.663506599999998, 7.0154396000000006`}}, 
           0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{1.4626737, 9.460189199999999, 7.4284672}, {1.28383785, 
           9.168278599999999, 6.4840811}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.105002, 8.876368, 5.539695}, {1.28383785, 
           9.168278599999999, 6.4840811}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.9133981999999998`, 
           7.9911122, 6.378186250000001}}, 0.15]}, 
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{2.5521668999999996`, 7.574437199999999, 6.3438929}, {
           1.9133981999999998`, 7.9911122, 6.378186250000001}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.38367575, 8.7420796, 
           7.3817378}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.4927219999999999`, 9.076372, 8.350996}, {1.38367575, 
           8.7420796, 7.3817378}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.73747025, 9.1373256, 
           6.8315368}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.200311, 9.866864, 7.2505939999999995`}, {1.73747025, 
           9.1373256, 6.8315368}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.02503475, 9.2611376, 
           6.9408233}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.77544, 10.114488, 7.469167}, {1.02503475, 9.2611376, 
           6.9408233}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {0.8747932500000001, 
           8.1373056, 6.5074458}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.474957, 7.8668239999999985`, 6.602412}, {
           0.8747932500000001, 8.1373056, 6.5074458}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{1.2746295, 8.4077872, 6.4124796}, {1.1898157500000002`, 
           8.6420776, 5.9760873}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.105002, 8.876368, 5.539695}, {1.1898157500000002`, 
           8.6420776, 5.9760873}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{2.5521668999999996`, 7.574437199999999, 6.3438929}, {
           2.9709044999999996`, 7.599675799999999, 6.78895275}}, 0.15]}, 
         {RGBColor[1, 0.75, 0], 
          TubeBox[{{3.3896421, 7.624914399999999, 7.2340126}, {
           2.9709044999999996`, 7.599675799999999, 6.78895275}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{2.5521668999999996`, 7.574437199999999, 6.3438929}, {
           2.60887095, 7.194429599999999, 5.795953000000001}}, 0.15]}, 
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{2.665575, 6.8144219999999995`, 5.2480131000000005`}, {
           2.60887095, 7.194429599999999, 5.795953000000001}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{2.5521668999999996`, 7.574437199999999, 6.3438929}, {
           2.24538345, 7.1587146, 5.50087945}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.9386, 6.742991999999999, 4.657866}, {2.24538345, 
           7.1587146, 5.50087945}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{2.665575, 6.8144219999999995`, 5.2480131000000005`}, {
           3.2156527500000003`, 6.3429839999999995`, 5.179803250000001}}, 
           0.15]}, 
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.7657305, 5.8715459999999995`, 5.1115934}, {
           3.2156527500000003`, 6.3429839999999995`, 5.179803250000001}}, 
           0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{2.665575, 6.8144219999999995`, 5.2480131000000005`}, {
           2.3020875, 6.778706999999999, 4.95293955}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.9386, 6.742991999999999, 4.657866}, {2.3020875, 
           6.778706999999999, 4.95293955}}, 0.15]}}, {
         {RGBColor[0.363898, 0.618501, 0.782349], 
          TubeBox[{{2.665575, 6.8144219999999995`, 5.2480131000000005`}, {
           3.305313, 6.135836999999999, 5.612427050000001}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.9450509999999994`, 5.457251999999999, 5.976841}, {
           3.305313, 6.135836999999999, 5.612427050000001}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.7657305, 5.8715459999999995`, 5.1115934}, {3.5854407, 
           5.3496308, 4.586641350000001}}, 0.15]}, 
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.4051508999999998`, 4.827715599999999, 4.0616893}, {
           3.5854407, 5.3496308, 4.586641350000001}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.7657305, 5.8715459999999995`, 5.1115934}, {
           4.4335781999999995`, 6.195361999999999, 4.90997865}}, 0.15]}, 
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{5.1014259, 6.519177999999999, 4.7083639}, {
           4.4335781999999995`, 6.195361999999999, 4.90997865}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.7657305, 5.8715459999999995`, 5.1115934}, {2.85216525, 
           6.307269, 4.8847297}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.9386, 6.742991999999999, 4.657866}, {2.85216525, 
           6.307269, 4.8847297}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.7657305, 5.8715459999999995`, 5.1115934}, {
           3.8553907499999998`, 5.6643989999999995`, 5.5442172}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.9450509999999994`, 5.457251999999999, 5.976841}, {
           3.8553907499999998`, 5.6643989999999995`, 5.5442172}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.4051508999999998`, 4.827715599999999, 4.0616893}, {
           3.6751009499999996`, 5.142483799999999, 5.019265150000001}}, 
           0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.9450509999999994`, 5.457251999999999, 5.976841}, {
           3.6751009499999996`, 5.142483799999999, 5.019265150000001}}, 
           0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.4051508999999998`, 4.827715599999999, 4.0616893}, {
           3.36007845, 5.023433799999999, 3.58723515}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.3150060000000003`, 5.219152, 3.112781}, {3.36007845, 
           5.023433799999999, 3.58723515}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.4051508999999998`, 4.827715599999999, 4.0616893}, {
           3.81564945, 4.494851799999999, 3.9904646500000003`}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{4.226148, 4.161988, 3.9192400000000003`}, {3.81564945, 
           4.494851799999999, 3.9904646500000003`}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{3.4051508999999998`, 4.827715599999999, 4.0616893}, {
           2.93843295, 4.5900918, 4.2580281499999995`}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.471715, 4.352468, 4.4543669999999995`}, {2.93843295, 
           4.5900918, 4.2580281499999995`}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{5.1014259, 6.519177999999999, 4.7083639}, {
           5.617093499999999, 6.233458, 4.9148777}}, 0.15]}, 
         {RGBColor[1, 0.75, 0], 
          TubeBox[{{6.1327611, 5.947738, 5.1213915}, {5.617093499999999, 
           6.233458, 4.9148777}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{5.1014259, 6.519177999999999, 4.7083639}, {5.1062724, 
           7.0063306, 4.3119177}}, 0.15]}, 
         {RGBColor[1, 0.75, 0], 
          TubeBox[{{5.1111189, 7.4934832, 3.9154714999999998`}, {5.1062724, 
           7.0063306, 4.3119177}}, 0.15]}}, {
         {RGBColor[0.772079, 0.431554, 0.102387], 
          TubeBox[{{5.1014259, 6.519177999999999, 4.7083639}, {
           4.523238449999999, 5.9882149999999985`, 5.34260245}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.9450509999999994`, 5.457251999999999, 5.976841}, {
           4.523238449999999, 5.9882149999999985`, 5.34260245}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.4927219999999999`, 9.076372, 8.350996}, {1.8465165, 
           9.471618, 7.800795}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.200311, 9.866864, 7.2505939999999995`}, {1.8465165, 
           9.471618, 7.800795}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.4927219999999999`, 9.076372, 8.350996}, {1.134081, 
           9.59543, 7.9100815}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.77544, 10.114488, 7.469167}, {1.134081, 9.59543, 
           7.9100815}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.200311, 9.866864, 7.2505939999999995`}, {
           1.4878755000000001`, 9.990676, 7.359880499999999}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.77544, 10.114488, 7.469167}, {1.4878755000000001`, 
           9.990676, 7.359880499999999}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{0.474957, 7.8668239999999985`, 6.602412}, {
           0.7899795000000001, 8.371595999999998, 6.0710535}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{1.105002, 8.876368, 5.539695}, {0.7899795000000001, 
           8.371595999999998, 6.0710535}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.3150060000000003`, 5.219152, 3.112781}, {
           3.7705770000000003`, 4.69057, 3.5160105}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{4.226148, 4.161988, 3.9192400000000003`}, {
           3.7705770000000003`, 4.69057, 3.5160105}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{3.3150060000000003`, 5.219152, 3.112781}, {2.8933605, 
           4.78581, 3.7835739999999998`}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.471715, 4.352468, 4.4543669999999995`}, {2.8933605, 
           4.78581, 3.7835739999999998`}}, 0.15]}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{4.226148, 4.161988, 3.9192400000000003`}, {3.3489315, 
           4.257228, 4.1868035}}, 0.15]}, 
         {RGBColor[0.368417, 0.506779, 0.709798], 
          TubeBox[{{2.471715, 4.352468, 4.4543669999999995`}, {3.3489315, 
           4.257228, 4.1868035}}, 0.15]}}, 
        TagBox[
         TooltipBox[
          {RGBColor[0.363898, 0.618501, 0.782349], 
           TagBox[SphereBox[{1.4626737, 9.460189199999999, 7.4284672}, 0.5],
            "Ball"]},
          "1"],
         Annotation[#, 1, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.772079, 0.431554, 0.102387], 
           TagBox[SphereBox[{1.2746295, 8.4077872, 6.4124796}, 0.5],
            "Ball"]},
          "2"],
         Annotation[#, 2, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.772079, 0.431554, 0.102387], 
           
           TagBox[SphereBox[{2.5521668999999996`, 7.574437199999999, 
             6.3438929}, 0.5],
            "Ball"]},
          "3"],
         Annotation[#, 3, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[1, 0.75, 0], 
           TagBox[SphereBox[{3.3896421, 7.624914399999999, 7.2340126}, 0.5],
            "Ball"]},
          "4"],
         Annotation[#, 4, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.363898, 0.618501, 0.782349], 
           
           TagBox[SphereBox[{2.665575, 6.8144219999999995`, 
             5.2480131000000005`}, 0.5],
            "Ball"]},
          "5"],
         Annotation[#, 5, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.772079, 0.431554, 0.102387], 
           
           TagBox[SphereBox[{3.7657305, 5.8715459999999995`, 5.1115934}, 0.5],
            
            "Ball"]},
          "6"],
         Annotation[#, 6, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.772079, 0.431554, 0.102387], 
           
           TagBox[SphereBox[{3.4051508999999998`, 4.827715599999999, 
             4.0616893}, 0.5],
            "Ball"]},
          "7"],
         Annotation[#, 7, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.772079, 0.431554, 0.102387], 
           TagBox[SphereBox[{5.1014259, 6.519177999999999, 4.7083639}, 0.5],
            "Ball"]},
          "8"],
         Annotation[#, 8, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[1, 0.75, 0], 
           TagBox[SphereBox[{6.1327611, 5.947738, 5.1213915}, 0.5],
            "Ball"]},
          "9"],
         Annotation[#, 9, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[1, 0.75, 0], 
           
           TagBox[SphereBox[{5.1111189, 7.4934832, 3.9154714999999998`}, 0.5],
            
            "Ball"]},
          "10"],
         Annotation[#, 10, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{1.4927219999999999`, 9.076372, 8.350996}, 0.5],
            "Ball"]},
          "11"],
         Annotation[#, 11, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{2.200311, 9.866864, 7.2505939999999995`}, 0.5],
            "Ball"]},
          "12"],
         Annotation[#, 12, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{0.77544, 10.114488, 7.469167}, 0.5],
            "Ball"]},
          "13"],
         Annotation[#, 13, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{0.474957, 7.8668239999999985`, 6.602412}, 0.5],
            "Ball"]},
          "14"],
         Annotation[#, 14, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{1.105002, 8.876368, 5.539695}, 0.5],
            "Ball"]},
          "15"],
         Annotation[#, 15, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{1.9386, 6.742991999999999, 4.657866}, 0.5],
            "Ball"]},
          "16"],
         Annotation[#, 16, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           
           TagBox[SphereBox[{3.9450509999999994`, 5.457251999999999, 
             5.976841}, 0.5],
            "Ball"]},
          "17"],
         Annotation[#, 17, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{3.3150060000000003`, 5.219152, 3.112781}, 0.5],
            "Ball"]},
          "18"],
         Annotation[#, 18, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{4.226148, 4.161988, 3.9192400000000003`}, 0.5],
            "Ball"]},
          "19"],
         Annotation[#, 19, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {RGBColor[0.368417, 0.506779, 0.709798], 
           TagBox[SphereBox[{2.471715, 4.352468, 4.4543669999999995`}, 0.5],
            "Ball"]},
          "20"],
         Annotation[#, 20, "Tooltip"]& ]},
       BaseStyle->{
         Specularity[
          GrayLevel[0.5], 100]},
       Boxed->False,
       Lighting->"Neutral",
       SphericalRegion->True], 
      Graphics3DBox[{
        {GrayLevel[0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {9.693, 0., 0.}}]]}, 
        {GrayLevel[0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0, 9.524, 0.}}]]}, 
        {GrayLevel[0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0, 0, 7.537}}]]}, 
        {GrayLevel[0], Line3DBox[{{0., 9.524, 0.}, {9.693, 9.524, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{9.693, 0., 0.}, {9.693, 9.524, 0.}}]}, 
        {GrayLevel[0], Line3DBox[{{9.693, 0., 0.}, {9.693, 0., 7.537}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 9.524, 0.}, {0., 9.524, 7.537}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{9.693, 9.524, 0.}, {9.693, 9.524, 7.537}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 7.537}, {9.693, 0., 7.537}}]}, 
        {GrayLevel[0], Line3DBox[{{0., 0., 7.537}, {0., 9.524, 7.537}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{0., 9.524, 7.537}, {9.693, 9.524, 7.537}}]}, 
        {GrayLevel[0], 
         Line3DBox[{{9.693, 0., 7.537}, {9.693, 9.524, 7.537}}]}, 
        {RGBColor[0.291989, 0.437977, 0.888609], 
         SphereBox[{{1.4626737, 9.460189199999999, 7.4284672}, {2.665575, 
          6.8144219999999995`, 5.2480131000000005`}}, 0.56]}, 
        {RGBColor[0.4, 0.4, 0.4], 
         SphereBox[{{1.2746295, 8.4077872, 6.4124796}, {2.5521668999999996`, 
          7.574437199999999, 6.3438929}, {3.7657305, 5.8715459999999995`, 
          5.1115934}, {3.4051508999999998`, 4.827715599999999, 4.0616893}, {
          5.1014259, 6.519177999999999, 4.7083639}}, 0.67]}, 
        {RGBColor[0.800498, 0.201504, 0.192061], 
         SphereBox[{{3.3896421, 7.624914399999999, 7.2340126}, {6.1327611, 
          5.947738, 5.1213915}, {5.1111189, 7.4934832, 3.9154714999999998`}}, 
          0.48]}, 
        {RGBColor[0.65, 0.7, 0.7], 
         SphereBox[{{1.4927219999999999`, 9.076372, 8.350996}, {2.200311, 
          9.866864, 7.2505939999999995`}, {0.77544, 10.114488, 7.469167}, {
          0.474957, 7.8668239999999985`, 6.602412}, {1.105002, 8.876368, 
          5.539695}, {1.9386, 6.742991999999999, 4.657866}, {
          3.9450509999999994`, 5.457251999999999, 5.976841}, {
          3.3150060000000003`, 5.219152, 3.112781}, {4.226148, 4.161988, 
          3.9192400000000003`}, {2.471715, 4.352468, 4.4543669999999995`}}, 
          0.53]}},
       Boxed->False,
       Lighting->"Neutral",
       PlotRange->All,
       SphericalRegion->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Row],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableDirections -> Row]]]], "Output",
 CellChangeTimes->{{3.761225638379395*^9, 3.76122564593714*^9}},
 CellLabel->"Out[5]//TableForm=",
 CellID->185860639,ExpressionUUID->"e99c3bf5-f905-4016-8dd8-4fb7a9148278"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "1a3d7009-6da3-4bec-8755-4485545e5276"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"22d0590e-e377-458b-805c-caa0618c48e5"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "6522b69c-933e-40e3-9325-b94a8e24e71d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"d97e2f7b-bd1b-4a1d-9634-0d9538a18fcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"MaXrd`CrystalPlot", "[", 
        RowBox[{"key", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "1"}], "}"}], "*", "s"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "displayOption"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"s", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"TableDirections", "\[Rule]", "Row"}]}], "]"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Row", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Control", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"key", ",", 
            RowBox[{"RandomChoice", "@", 
             RowBox[{"Keys", "@", "$CrystalData"}]}], ",", "\"\<\>\""}], 
           "}"}], ",", 
          RowBox[{"Keys", "@", "$CrystalData"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Control", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"displayOption", ",", "\"\<Box\>\"", ",", "\"\<\>\""}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\"\<Box\>\"", ",", "\"\<Axes\>\"", ",", "\"\<None\>\""}], 
           "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"Spacer", "[", "10", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/c5m4tI81jeOk+tKtoLoOKHGAyD62G/DUyC6rMHu
FYjm23T8NYgWE/nHkA+kTUpEGUF02bYjQiA6ZUuvDIi2Cd+iAaJfz4rXBNEn
Pi7VA9EtmkdtQLTCUQs3EF2XcMYLRG+NswsB0RqPWiNA9KM5HI0gWtQ9Ekz3
ZH5pB9FKW5bMApu3xGM+iDZ4sn81iJ47t2EjiD5m5rQVRMe/+bobRKdlq+wB
0UttXh4G0asu9R4D0W7nmU+DaNsPBRdB9CyzH1dBtNm087dBdIWYN1sTkM5x
MGUH0TXL3Cy+AOmgT9PANADlmox/
  "],
 CellLabel->"In[1]:=",
 CellID->1106898385,ExpressionUUID->"f5e0eca0-69ca-4e9d-a0ec-44f4911748c0"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`displayOption$$ = 
    "Box", $CellContext`key$$ = "Silicon", Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`key$$], "Silicon", ""}, {
      "Aluminium", "Austenite", "CalciumFluoride", "Cobalt(II)Fluoride", 
       "Copper", "CopperTungstenOxide", "Corundum", "Diamond", "Ferrite", 
       "GalliumArsenide", "Germanium", "Glycyl-L-alanine", "Ice", 
       "LanthanumHexaboride", "LithiumCobaltate", "LithiumManganesePhosphate",
        "ManganeseSilicon", "Nickel", "OxalicAcid", "Perovskite", "Polonium", 
       "PrussianBlue", "Quartz", "Silicon", "Silver", "Sodalite", 
       "SodiumChloride", "Sphalerite", "Tungsten", "Zinc"}}, {{
       Hold[$CellContext`displayOption$$], "Box", ""}, {
      "Box", "Axes", "None"}}, {
      Hold[
       Row[{
         Manipulate`Place[1], 
         Manipulate`Place[2]}, 
        Spacer[10]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    368., {87.3544921875, 92.6455078125}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`key$4414$$ = 0, $CellContext`displayOption$4415$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     2, StandardForm, 
      "Variables" :> {$CellContext`displayOption$$ = 
        "Box", $CellContext`key$$ = "Silicon"}, "ControllerVariables" :> {
        Hold[$CellContext`key$$, $CellContext`key$4414$$, 0], 
        Hold[$CellContext`displayOption$$, $CellContext`displayOption$4415$$, 
         0]}, "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> TableForm[
        Table[
         MaXrd`CrystalPlot[$CellContext`key$$, 
          "StructureSize" -> {1, 1, 1} $CellContext`s, 
          "UnitCellDisplay" -> $CellContext`displayOption$$], \
{$CellContext`s, {0, 1}}], TableDirections -> Row], 
      "Specifications" :> {{{$CellContext`key$$, "Silicon", ""}, {
         "Aluminium", "Austenite", "CalciumFluoride", "Cobalt(II)Fluoride", 
          "Copper", "CopperTungstenOxide", "Corundum", "Diamond", "Ferrite", 
          "GalliumArsenide", "Germanium", "Glycyl-L-alanine", "Ice", 
          "LanthanumHexaboride", "LithiumCobaltate", 
          "LithiumManganesePhosphate", "ManganeseSilicon", "Nickel", 
          "OxalicAcid", "Perovskite", "Polonium", "PrussianBlue", "Quartz", 
          "Silicon", "Silver", "Sodalite", "SodiumChloride", "Sphalerite", 
          "Tungsten", "Zinc"}, ControlPlacement -> 
         1}, {{$CellContext`displayOption$$, "Box", ""}, {
         "Box", "Axes", "None"}, ControlPlacement -> 2}, 
        Row[{
          Manipulate`Place[1], 
          Manipulate`Place[2]}, 
         Spacer[10]]}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {132., 138.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.761218117019185*^9, 3.761218150117557*^9}, 
   3.7612252487228823`*^9, {3.761225658412408*^9, 3.761225672455422*^9}, {
   3.761425356979233*^9, 3.761425362526394*^9}},
 CellLabel->"Out[1]=",
 CellID->106601112,ExpressionUUID->"dfc3ec0e-42c3-4a55-861c-84ff0b65e8c8"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "40aa6dbf-cee0-4930-8b4c-e6728999acb2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"1ec7ce0d-770a-4595-9396-56c7b1b95501"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"48a7e040-731b-4a41-ba35-82aa3b9c3789"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.7614253380646143`*^9, 3.761425340542819*^9}},
 CellID->356647253,ExpressionUUID->"2764fec6-3ed6-41d7-bae5-9b56e1c4e532"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CrystalPlot", "::", "InvalidMethod"}], "=", 
   "\"\<\\\"AtomSizeMethod\\\" must either be \\\"RadiusTable\\\" or \
\\\"DisplacementParameters\\\".\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CrystalPlot", "::", "InvalidDisplay"}], "=", 
    "\"\<\\\"UnitCell\\\" must be either \\\"Box\\\", \\\"Axes\\\" or \
\\\"None\\\".\>\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "CrystalPlot"}], "=", 
    RowBox[{"SortBy", "[", 
     RowBox[{
      RowBox[{"Normal", "@", 
       RowBox[{"Union", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Association", "@", 
          RowBox[{"Options", "@", "Graphics3D"}]}], ",", 
         RowBox[{"<|", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\"\<AxisFunction\>\"", "\[Rule]", "Line"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<OpacityMap\>\"", "\[Rule]", 
            RowBox[{"<|", "|>"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"\"\<RGBStyle\>\"", "\[Rule]", "True"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<StructureSize\>\"", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"\"\<UnitCellDisplay\>\"", "\[Rule]", "\"\<Box\>\""}], ",",
            "\[IndentingNewLine]", 
           RowBox[{"(*", " ", "Graphics3D", " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
           
           RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], 
          "\[IndentingNewLine]", "|>"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"ToString", "[", 
        RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        "]"}], "&"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "CrystalPlot"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", 
       RowBox[{"OptionsPattern", "[", 
        RowBox[{"{", 
         RowBox[{"CrystalPlot", ",", "Graphics3D"}], "}"}], "]"}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714926640095376*^9, 3.714926648623674*^9}, {
   3.7281068862853603`*^9, 3.728106924475239*^9}, {3.747569567860682*^9, 
   3.747569567914845*^9}, {3.747569839486174*^9, 3.747569852127593*^9}, {
   3.756710428101788*^9, 3.756710432840755*^9}, {3.7567104759439573`*^9, 
   3.756710476208014*^9}, {3.760949332541236*^9, 3.76094933494974*^9}, {
   3.760949380424467*^9, 3.760949410672333*^9}, {3.761219705413692*^9, 
   3.761219710240984*^9}, {3.7612247494336042`*^9, 3.761224756985135*^9}, {
   3.761224890775395*^9, 3.7612248941088247`*^9}, {3.761224984701357*^9, 
   3.761225001539753*^9}, {3.7612251566896276`*^9, 3.761225158190507*^9}, {
   3.761248071523448*^9, 3.76124807230606*^9}, {3.761420022003708*^9, 
   3.761420058067872*^9}, 3.761420150574994*^9, {3.761420575838612*^9, 
   3.761420581179722*^9}, {3.761420631045661*^9, 3.76142063333079*^9}, {
   3.761421062468348*^9, 3.76142112730361*^9}, {3.761421272125429*^9, 
   3.7614213082038097`*^9}, {3.761421397884313*^9, 3.761421417345962*^9}, {
   3.7741829500904083`*^9, 3.774182956320072*^9}, {3.7741830656066933`*^9, 
   3.774183074645957*^9}, {3.7808237944516973`*^9, 3.780823794609888*^9}},
 CellLabel->"In[570]:=",
 CellID->1854181206,ExpressionUUID->"73b5edab-6e81-4f9f-a3a3-3fa9e3f60c23"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrystalPlot", "[", "\[IndentingNewLine]", 
   RowBox[{"crystalInput_String", ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", 
     RowBox[{"{", 
      RowBox[{"CrystalPlot", ",", "Graphics3D"}], "}"}], "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"crystalDataOriginal", "=", "$CrystalData"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"crystal", "=", "crystalInput"}], ",", 
      RowBox[{"structureSize", "=", 
       RowBox[{"OptionValue", "[", "\"\<StructureSize\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"rgbStyle", "=", 
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<RGBStyle\>\"", "]"}]}]}], ",", 
      "latticeStyleList", ",", "CreateBoxEdges", ",", "toCartesianMatrix", 
      ",", "MakeSpheres", ",", "\[IndentingNewLine]", 
      RowBox[{"latticePlotFunction", "=", 
       RowBox[{"OptionValue", "[", "\"\<AxisFunction\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", "crystalData", ",", "atomData", ",", 
      "coordinates", ",", "\[IndentingNewLine]", "atomDataTemp", ",", 
      "spheres", ",", "\[IndentingNewLine]", "basisArrowCoordinates", ",", 
      "translations", ",", "coordinatePairs", ",", "unitCellPlotData", ",", 
      RowBox[{"unitCellDisplay", "=", 
       RowBox[{"OptionValue", "[", "\"\<UnitCellDisplay\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"opacityMap", "=", 
       RowBox[{"OptionValue", "[", "\"\<OpacityMap\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", "plotOptions"}], "\[IndentingNewLine]", "}"}], 
    ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Optional", ":", " ", 
      RowBox[{"Expand", " ", "crystal"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"structureSize", "=!=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ExpandCrystal", "[", 
         RowBox[{"crystalInput", ",", "structureSize", ",", 
          RowBox[{"\"\<StoreTemporarily\>\"", "\[Rule]", "True"}]}], "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"crystal", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Keys", "@", "MaXrd`Private`$TempCrystalData"}], ")"}], 
          "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"$CrystalData", "=", "MaXrd`Private`$TempCrystalData"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Auxiliary", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"ValueQ", "@", "MaXrd`Private`atomRadiusTable"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"MaXrd`Private`atomRadiusTable", "=", 
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\"\<H\>\"", "\[Rule]", "0.53"}], ",", 
          RowBox[{"\"\<He\>\"", "\[Rule]", "0.31"}], ",", 
          RowBox[{"\"\<Li\>\"", "\[Rule]", "1.67"}], ",", 
          RowBox[{"\"\<Be\>\"", "\[Rule]", "1.12"}], ",", 
          RowBox[{"\"\<B\>\"", "\[Rule]", "0.87"}], ",", 
          RowBox[{"\"\<C\>\"", "\[Rule]", "0.67"}], ",", 
          RowBox[{"\"\<N\>\"", "\[Rule]", "0.56"}], ",", 
          RowBox[{"\"\<O\>\"", "\[Rule]", "0.48"}], ",", 
          RowBox[{"\"\<F\>\"", "\[Rule]", "0.42"}], ",", 
          RowBox[{"\"\<Ne\>\"", "\[Rule]", "0.38"}], ",", 
          RowBox[{"\"\<Na\>\"", "\[Rule]", "1.9"}], ",", 
          RowBox[{"\"\<Mg\>\"", "\[Rule]", "1.45"}], ",", 
          RowBox[{"\"\<Al\>\"", "\[Rule]", "1.18"}], ",", 
          RowBox[{"\"\<Si\>\"", "\[Rule]", "1.11"}], ",", 
          RowBox[{"\"\<P\>\"", "\[Rule]", "0.98"}], ",", 
          RowBox[{"\"\<S\>\"", "\[Rule]", "0.87"}], ",", 
          RowBox[{"\"\<Cl\>\"", "\[Rule]", "0.79"}], ",", 
          RowBox[{"\"\<Ar\>\"", "\[Rule]", "0.71"}], ",", 
          RowBox[{"\"\<K\>\"", "\[Rule]", "2.43"}], ",", 
          RowBox[{"\"\<Ca\>\"", "\[Rule]", "1.94"}], ",", 
          RowBox[{"\"\<Sc\>\"", "\[Rule]", "1.84"}], ",", 
          RowBox[{"\"\<Ti\>\"", "\[Rule]", "1.76"}], ",", 
          RowBox[{"\"\<V\>\"", "\[Rule]", "1.71"}], ",", 
          RowBox[{"\"\<Cr\>\"", "\[Rule]", "1.66"}], ",", 
          RowBox[{"\"\<Mn\>\"", "\[Rule]", "1.61"}], ",", 
          RowBox[{"\"\<Fe\>\"", "\[Rule]", "1.56"}], ",", 
          RowBox[{"\"\<Co\>\"", "\[Rule]", "1.52"}], ",", 
          RowBox[{"\"\<Ni\>\"", "\[Rule]", "1.49"}], ",", 
          RowBox[{"\"\<Cu\>\"", "\[Rule]", "1.45"}], ",", 
          RowBox[{"\"\<Zn\>\"", "\[Rule]", "1.42"}], ",", 
          RowBox[{"\"\<Ga\>\"", "\[Rule]", "1.36"}], ",", 
          RowBox[{"\"\<Ge\>\"", "\[Rule]", "1.25"}], ",", 
          RowBox[{"\"\<As\>\"", "\[Rule]", "1.14"}], ",", 
          RowBox[{"\"\<Se\>\"", "\[Rule]", "1.03"}], ",", 
          RowBox[{"\"\<Br\>\"", "\[Rule]", "0.94"}], ",", 
          RowBox[{"\"\<Kr\>\"", "\[Rule]", "0.87"}], ",", 
          RowBox[{"\"\<Rb\>\"", "\[Rule]", "2.65"}], ",", 
          RowBox[{"\"\<Sr\>\"", "\[Rule]", "2.19"}], ",", 
          RowBox[{"\"\<Y\>\"", "\[Rule]", "2.12"}], ",", 
          RowBox[{"\"\<Zr\>\"", "\[Rule]", "2.06"}], ",", 
          RowBox[{"\"\<Nb\>\"", "\[Rule]", "1.98"}], ",", 
          RowBox[{"\"\<Mo\>\"", "\[Rule]", "1.9"}], ",", 
          RowBox[{"\"\<Tc\>\"", "\[Rule]", "1.83"}], ",", 
          RowBox[{"\"\<Ru\>\"", "\[Rule]", "1.78"}], ",", 
          RowBox[{"\"\<Rh\>\"", "\[Rule]", "1.73"}], ",", 
          RowBox[{"\"\<Pd\>\"", "\[Rule]", "1.69"}], ",", 
          RowBox[{"\"\<Ag\>\"", "\[Rule]", "1.65"}], ",", 
          RowBox[{"\"\<Cd\>\"", "\[Rule]", "1.61"}], ",", 
          RowBox[{"\"\<In\>\"", "\[Rule]", "1.56"}], ",", 
          RowBox[{"\"\<Sn\>\"", "\[Rule]", "1.45"}], ",", 
          RowBox[{"\"\<Sb\>\"", "\[Rule]", "1.33"}], ",", 
          RowBox[{"\"\<Te\>\"", "\[Rule]", "1.23"}], ",", 
          RowBox[{"\"\<I\>\"", "\[Rule]", "1.15"}], ",", 
          RowBox[{"\"\<Xe\>\"", "\[Rule]", "1.08"}], ",", 
          RowBox[{"\"\<Cs\>\"", "\[Rule]", "2.98"}], ",", 
          RowBox[{"\"\<Ba\>\"", "\[Rule]", "2.53"}], ",", 
          RowBox[{"\"\<La\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Ce\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Pr\>\"", "\[Rule]", "2.47"}], ",", 
          RowBox[{"\"\<Nd\>\"", "\[Rule]", "2.06"}], ",", 
          RowBox[{"\"\<Pm\>\"", "\[Rule]", "2.05"}], ",", 
          RowBox[{"\"\<Sm\>\"", "\[Rule]", "2.38"}], ",", 
          RowBox[{"\"\<Eu\>\"", "\[Rule]", "2.31"}], ",", 
          RowBox[{"\"\<Gd\>\"", "\[Rule]", "2.33"}], ",", 
          RowBox[{"\"\<Tb\>\"", "\[Rule]", "2.25"}], ",", 
          RowBox[{"\"\<Dy\>\"", "\[Rule]", "2.28"}], ",", 
          RowBox[{"\"\<Ho\>\"", "\[Rule]", "2.26"}], ",", 
          RowBox[{"\"\<Er\>\"", "\[Rule]", "2.26"}], ",", 
          RowBox[{"\"\<Tm\>\"", "\[Rule]", "2.22"}], ",", 
          RowBox[{"\"\<Yb\>\"", "\[Rule]", "2.22"}], ",", 
          RowBox[{"\"\<Lu\>\"", "\[Rule]", "2.17"}], ",", 
          RowBox[{"\"\<Hf\>\"", "\[Rule]", "2.08"}], ",", 
          RowBox[{"\"\<Ta\>\"", "\[Rule]", "2."}], ",", 
          RowBox[{"\"\<W\>\"", "\[Rule]", "1.93"}], ",", 
          RowBox[{"\"\<Re\>\"", "\[Rule]", "1.88"}], ",", 
          RowBox[{"\"\<Os\>\"", "\[Rule]", "1.85"}], ",", 
          RowBox[{"\"\<Ir\>\"", "\[Rule]", "1.8"}], ",", 
          RowBox[{"\"\<Pt\>\"", "\[Rule]", "1.77"}], ",", 
          RowBox[{"\"\<Au\>\"", "\[Rule]", "1.74"}], ",", 
          RowBox[{"\"\<Hg\>\"", "\[Rule]", "1.71"}], ",", 
          RowBox[{"\"\<Tl\>\"", "\[Rule]", "1.56"}], ",", 
          RowBox[{"\"\<Pb\>\"", "\[Rule]", "1.54"}], ",", 
          RowBox[{"\"\<Bi\>\"", "\[Rule]", "1.43"}], ",", 
          RowBox[{"\"\<Po\>\"", "\[Rule]", "1.35"}], ",", 
          RowBox[{"\"\<At\>\"", "\[Rule]", "1.27"}], ",", 
          RowBox[{"\"\<Rn\>\"", "\[Rule]", "1.2"}], ",", 
          RowBox[{"\"\<Fr\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Ra\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Ac\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Th\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Pa\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<U\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Np\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Pu\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Am\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Cm\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Bk\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Cf\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Es\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Fm\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Md\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<No\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Lr\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Rf\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Db\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Sg\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Bh\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Hs\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Mt\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Ds\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Rg\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Cn\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Nh\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Fl\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Mc\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Lv\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Ts\>\"", "\[Rule]", "1.5"}], ",", 
          RowBox[{"\"\<Og\>\"", "\[Rule]", "1.5"}]}], 
         "\[RightAssociation]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"latticeStyleList", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"Black", ",", "12"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"rgbStyle", ",", 
       RowBox[{
        RowBox[{"latticeStyleList", "\[LeftDoubleBracket]", 
         RowBox[{";;", "3"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CreateBoxEdges", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t1_", ",", "t2_", ",", "t3_"}], "}"}]}], "]"}], ":=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"a", ",", "b", ",", "c", ",", "\[IndentingNewLine]", 
        RowBox[{"t2", "[", "a", "]"}], ",", 
        RowBox[{"t1", "[", "b", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"t1", "[", "c", "]"}], ",", 
        RowBox[{"t2", "[", "c", "]"}], ",", 
        RowBox[{"t1", "[", 
         RowBox[{"t2", "[", "c", "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"t3", "[", "a", "]"}], ",", 
        RowBox[{"t3", "[", "b", "]"}], ",", 
        RowBox[{"t3", "[", 
         RowBox[{"t2", "[", "a", "]"}], "]"}], ",", 
        RowBox[{"t3", "[", 
         RowBox[{"t1", "[", "b", "]"}], "]"}]}], "\[IndentingNewLine]", 
       "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"toCartesianMatrix", "=", 
      RowBox[{"Transpose", "@", 
       RowBox[{"GetCrystalMetric", "[", "\[IndentingNewLine]", 
        RowBox[{"crystal", ",", 
         RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]}], "]"}]}]}], ";",
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MakeSpheres", "[", 
       RowBox[{"element_", ",", "coordinateList_"}], "]"}], ":=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"ColorData", "[", "\"\<Atoms\>\"", "]"}], "[", "element", 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"opacityMap", "=!=", 
           RowBox[{"<|", "|>"}]}], ",", 
          RowBox[{"Opacity", "[", 
           RowBox[{"Lookup", "[", 
            RowBox[{"opacityMap", ",", "element", ",", "1.0"}], "]"}], 
           "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Transpose", "[", "toCartesianMatrix", "]"}], ".", "#"}],
             "&"}], "/@", "coordinateList"}], ",", "\[IndentingNewLine]", 
          RowBox[{"MaXrd`Private`atomRadiusTable", "@", "element"}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Acquiring", " ", "data"}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<CrystalQ\>\"", ",", "crystal"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"crystalData", "=", 
      RowBox[{"$CrystalData", "[", "crystal", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"atomData", "=", 
      RowBox[{"crystalData", "[", "\"\<AtomData\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"atomData", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "\"\<Element\>\""}], "\[RightDoubleBracket]"}], 
      "=", 
      RowBox[{"StringDelete", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"atomData", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "\"\<Element\>\""}], "\[RightDoubleBracket]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"\"\<+\>\"", ",", "\"\<-\>\"", ",", "DigitCharacter"}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"coordinates", "=", 
      RowBox[{"atomData", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "\"\<FractionalCoordinates\>\""}], 
       "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Preparing", " ", "atom", " ", "spheres"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"atomDataTemp", "=", 
      RowBox[{"GatherBy", "[", 
       RowBox[{
        RowBox[{"Lookup", "[", 
         RowBox[{"atomData", ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"\"\<Element\>\"", ",", "\"\<FractionalCoordinates\>\""}], 
           "}"}]}], "]"}], ",", 
        RowBox[{
         RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
         "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"atomDataTemp", "=", 
      RowBox[{"AssociationThread", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"atomDataTemp", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], 
        "\[Rule]", 
        RowBox[{"atomDataTemp", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "All", ",", "2"}], "\[RightDoubleBracket]"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"spheres", "=", 
      RowBox[{"KeyValueMap", "[", 
       RowBox[{"MakeSpheres", ",", "atomDataTemp"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Basis", "/", "lattice"}], " ", "vectors", " ", "and", " ", 
       "boxes"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"basisArrowCoordinates", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "#"}], "}"}], "&"}],
        "/@", "toCartesianMatrix"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"translations", "=", 
      RowBox[{"TranslationTransform", "/@", "toCartesianMatrix"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"unitCellDisplay", "===", "\"\<Box\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"coordinatePairs", "=", 
         RowBox[{"CreateBoxEdges", "[", "\[IndentingNewLine]", 
          RowBox[{"basisArrowCoordinates", ",", "translations"}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"unitCellPlotData", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
             "latticeStyleList", "\[LeftDoubleBracket]", "i", 
              "\[RightDoubleBracket]"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"i", ">", "3"}], ",", "#", ",", 
                 RowBox[{"Arrow", "@", "#"}]}], "]"}], "&"}], "@", 
              RowBox[{"latticePlotFunction", "@", 
               RowBox[{
               "coordinatePairs", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}]}]}]}], "\[IndentingNewLine]", "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "coordinatePairs"}]}], "}"}]}], "]"}]}]}],
        ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"unitCellDisplay", "===", "\"\<Axes\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"unitCellPlotData", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{"rgbStyle", ",", 
             RowBox[{"{", 
              RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}], ",", 
             RowBox[{"ConstantArray", "[", 
              RowBox[{"Black", ",", "3"}], "]"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Arrow", "[", 
              RowBox[{"latticePlotFunction", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "#"}], "}"}],
                "]"}], "]"}], "&"}], "/@", "toCartesianMatrix"}]}], 
          "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"unitCellDisplay", "===", "\"\<None\>\""}], ",", 
       RowBox[{"unitCellPlotData", "=", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "True", ",", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"CrystalPlot", "::", "InvalidDisplay"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"If", " ", "crystal", " ", "was", " ", "expanded"}], ",", " ", 
       
       RowBox[{
       "reset", " ", "pointer", " ", "to", " ", "original", " ", 
        "$CrystalData"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"structureSize", "=!=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"$CrystalData", "=", "crystalDataOriginal"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Plot", " ", "options"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"plotOptions", "=", 
      RowBox[{"Association", "@", 
       RowBox[{"FilterRules", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "\[Rule]", 
            RowBox[{"OptionValue", "[", "#", "]"}]}], "&"}], "/@", 
          RowBox[{"(", 
           RowBox[{"Keys", "@", 
            RowBox[{"Options", "@", "CrystalPlot"}]}], ")"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Options", "@", "Graphics3D"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<Trigonal\>\"", ",", "\"\<Hexagonal\>\""}], "}"}], ",",
           "\[IndentingNewLine]", 
          RowBox[{"GetSymmetryData", "[", 
           RowBox[{"crystal", ",", "\"\<CrystalSystem\>\""}], "]"}]}], "]"}], 
        "&&", 
        RowBox[{
         RowBox[{"OptionValue", "[", "\"\<ViewPoint\>\"", "]"}], "===", 
         RowBox[{"OptionValue", "[", 
          RowBox[{"Graphics3D", ",", "ViewPoint"}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AssociateTo", "[", 
        RowBox[{"plotOptions", ",", 
         RowBox[{"ViewPoint", "\[Rule]", "Above"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Plot", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{"unitCellPlotData", ",", "spheres"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"Normal", "@", "plotOptions"}]}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.714925556554666*^9, 
   3.714925578583651*^9}, {3.7149256217212152`*^9, 3.714925689133297*^9}, {
   3.7149258652268667`*^9, 3.714925953487383*^9}, {3.71492600096751*^9, 
   3.714926119019596*^9}, {3.714926175338132*^9, 3.714926196305581*^9}, 
   3.7149262352489967`*^9, {3.714926307824396*^9, 3.7149264095004387`*^9}, {
   3.714926450015284*^9, 3.7149265295624437`*^9}, {3.7149265755610447`*^9, 
   3.714926579417263*^9}, {3.714926655695353*^9, 3.714926765295703*^9}, {
   3.714927064423978*^9, 3.714927159155733*^9}, {3.7149272069557753`*^9, 
   3.7149276407442627`*^9}, {3.714927818589819*^9, 3.714927894002508*^9}, {
   3.715014199691877*^9, 3.7150142148573313`*^9}, {3.715064942408142*^9, 
   3.715064943132308*^9}, {3.7153145414034758`*^9, 3.7153145467616673`*^9}, 
   3.715327856633502*^9, {3.7154051731829433`*^9, 3.7154051929183903`*^9}, {
   3.7154052332773438`*^9, 3.715405253294734*^9}, {3.715405360310897*^9, 
   3.7154054069587708`*^9}, {3.717222403726162*^9, 3.717222415552843*^9}, {
   3.717222474077138*^9, 3.717222480379856*^9}, {3.7172225774835167`*^9, 
   3.717222584585285*^9}, {3.717740920496456*^9, 3.71774092050616*^9}, {
   3.7220727239925957`*^9, 3.722072731381322*^9}, {3.722072809534255*^9, 
   3.722072832036512*^9}, {3.722072863802107*^9, 3.722072898519074*^9}, 
   3.726561391058339*^9, 3.727675293483314*^9, 3.727676783958682*^9, {
   3.728106031257224*^9, 3.7281060589380007`*^9}, {3.728106180011772*^9, 
   3.728106202173979*^9}, {3.728106287634863*^9, 3.728106301113369*^9}, {
   3.7281063321779118`*^9, 3.728106374799776*^9}, {3.7281065875793667`*^9, 
   3.728106596424721*^9}, {3.728106935268379*^9, 3.728106947051586*^9}, {
   3.728107085050242*^9, 3.728107225807564*^9}, {3.7281087296199503`*^9, 
   3.7281087417638607`*^9}, {3.728108952031921*^9, 3.728108953406122*^9}, 
   3.728109068830366*^9, {3.728109140732355*^9, 3.728109162684065*^9}, 
   3.7281092259390078`*^9, 3.737968467010312*^9, {3.7455680832964697`*^9, 
   3.745568119889543*^9}, {3.747569432494769*^9, 3.747569442874075*^9}, {
   3.74756949426586*^9, 3.747569500574552*^9}, {3.7475695377399282`*^9, 
   3.7475695465343924`*^9}, {3.7475699175021257`*^9, 3.747569978808453*^9}, {
   3.747570081604307*^9, 3.7475700987875013`*^9}, {3.747570851329288*^9, 
   3.747570860993803*^9}, {3.747570941533657*^9, 3.747570947293482*^9}, {
   3.747570979528742*^9, 3.747570979833435*^9}, {3.7475710460233097`*^9, 
   3.747571047925109*^9}, {3.747571084476077*^9, 3.747571086328722*^9}, {
   3.747571371903867*^9, 3.7475713729193487`*^9}, {3.747571561267179*^9, 
   3.747571562589777*^9}, {3.747572757880087*^9, 3.747572827753377*^9}, {
   3.747572862364382*^9, 3.747572879792859*^9}, {3.759519240146062*^9, 
   3.759519241328768*^9}, 3.76094933831287*^9, 3.760949768973755*^9, {
   3.760984978066174*^9, 3.7609849782261057`*^9}, {3.7610413931761417`*^9, 
   3.761041413115313*^9}, {3.7610430860478983`*^9, 3.7610431431331463`*^9}, {
   3.761043822654356*^9, 3.761043826973112*^9}, {3.761043893872447*^9, 
   3.761043898359037*^9}, {3.761044578275333*^9, 3.761044579754964*^9}, {
   3.7610446519140987`*^9, 3.761044667819563*^9}, {3.7610449333385572`*^9, 
   3.761044933528962*^9}, {3.7611974752311287`*^9, 3.761197475395208*^9}, {
   3.761219720280757*^9, 3.761219720443687*^9}, 3.761219760708205*^9, {
   3.761219796192238*^9, 3.7612197966864157`*^9}, {3.761219880749118*^9, 
   3.761219917954582*^9}, {3.761219960450508*^9, 3.7612200276284847`*^9}, {
   3.761224270635038*^9, 3.7612242859363613`*^9}, {3.761224435792968*^9, 
   3.761224514091919*^9}, {3.7612246251383038`*^9, 3.761224733520315*^9}, {
   3.7612247722712793`*^9, 3.7612247764965963`*^9}, {3.7612248619479227`*^9, 
   3.761224879595311*^9}, {3.761224939212246*^9, 3.761224954897791*^9}, {
   3.7612250096029873`*^9, 3.761225024755363*^9}, 3.761225176113929*^9, {
   3.761226846793069*^9, 3.7612268777377367`*^9}, {3.761227986802516*^9, 
   3.761228018391322*^9}, {3.761244339357354*^9, 3.76124434274603*^9}, 
   3.761248076651359*^9, {3.761292747306129*^9, 3.761292752007421*^9}, {
   3.761292977932835*^9, 3.761293024578326*^9}, {3.761293056358447*^9, 
   3.761293066399618*^9}, 3.761293295578657*^9, {3.761293335488833*^9, 
   3.761293348363126*^9}, {3.761419025091445*^9, 3.761419128815998*^9}, {
   3.761419290964973*^9, 3.761419324809844*^9}, {3.7614193646659527`*^9, 
   3.761419374607725*^9}, {3.7614194094188557`*^9, 3.7614194224946833`*^9}, {
   3.761419540623413*^9, 3.761419714969212*^9}, {3.761419776545178*^9, 
   3.761419777511207*^9}, {3.7614199906197853`*^9, 3.761420000178577*^9}, {
   3.761420075498897*^9, 3.76142016521384*^9}, {3.761420687690447*^9, 
   3.761420717697867*^9}, {3.761421340825123*^9, 3.761421341388412*^9}, {
   3.7614218142311163`*^9, 3.76142187284282*^9}, 3.7614219059472637`*^9, {
   3.761422006897604*^9, 3.7614220684956284`*^9}, {3.761422135599387*^9, 
   3.761422250331128*^9}, {3.76142233220479*^9, 3.761422392600257*^9}, {
   3.761423510368361*^9, 3.7614235128850393`*^9}, 3.761423588080277*^9, 
   3.762793093125334*^9, {3.763795598026209*^9, 3.763795604168119*^9}, {
   3.7637957478383007`*^9, 3.763795785644519*^9}, {3.763795840509068*^9, 
   3.763795852858042*^9}, {3.78082380277636*^9, 3.780823813678226*^9}, {
   3.786968127926214*^9, 3.7869681291239653`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[575]:=",
 CellID->1088327625,ExpressionUUID->"ef79cc17-a444-43d4-b341-fb2f9a9b27eb"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[65612, 1721, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"d3eb99b0-708d-4dc6-881a-00f37a16fb31",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 177467, 4298}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"b7a4c809-45e8-42cf-8eda-9169f21057ee",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"1c86c9a7-b9a1-4d45-bb17-65fb98bcc481",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 70, "Categorization",ExpressionUUID->"94a3454b-363a-47fa-8f25-58a9ab814b54",
 CellID->686433507],
Cell[1446, 45, 133, 2, 70, "Categorization",ExpressionUUID->"704add6e-e293-43ed-b80f-6b443a4de81d",
 CellID->605800465],
Cell[1582, 49, 130, 2, 70, "Categorization",ExpressionUUID->"c3263004-002d-4c3b-bbe0-18652ef47be7",
 CellID->468444828],
Cell[1715, 53, 121, 1, 70, "Categorization",ExpressionUUID->"d7f8f2f8-80ca-4e9b-bc17-a0ff22f59c32"]
}, Closed]],
Cell[CellGroupData[{
Cell[1873, 59, 110, 1, 19, "KeywordsSection",ExpressionUUID->"6b15ea0f-7768-4c2d-a362-e6527cdc0b8c",
 CellID->477174294],
Cell[1986, 62, 100, 1, 70, "Keywords",ExpressionUUID->"a4138dbd-4c75-48aa-8088-196f0858fa5a",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2123, 68, 120, 1, 19, "TemplatesSection",ExpressionUUID->"b7ae374b-21f8-4697-8e89-f6400a0259e3",
 CellID->1872225408],
Cell[2246, 71, 149, 2, 70, "Template",ExpressionUUID->"e8c27aed-e4f4-43fb-aa03-902987e6617f",
 CellID->1562036412],
Cell[2398, 75, 137, 2, 70, "Template",ExpressionUUID->"e93848e0-9b2e-49dc-8c90-f3bbd8406d02",
 CellID->158391909],
Cell[2538, 79, 136, 2, 70, "Template",ExpressionUUID->"c7b5a5f7-f9a0-4d22-891c-f1e1fce5eaca",
 CellID->1360575930],
Cell[2677, 83, 137, 2, 70, "Template",ExpressionUUID->"fdcfbbae-9aac-47ed-a9a9-6a127255ea13",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2851, 90, 108, 1, 19, "DetailsSection",ExpressionUUID->"ce30c61a-3a64-4ff8-a2a3-0303eb86399e",
 CellID->307771771],
Cell[2962, 93, 118, 2, 70, "Details",ExpressionUUID->"0351a11d-8e6c-4931-9462-20592a192a6d",
 CellID->670882175],
Cell[3083, 97, 124, 2, 70, "Details",ExpressionUUID->"302b8c06-4e54-46f6-8d15-6fe0d2105699",
 CellID->350963985],
Cell[3210, 101, 119, 2, 70, "Details",ExpressionUUID->"67251a71-29ee-4276-96ea-819953f593e5",
 CellID->8391405],
Cell[3332, 105, 124, 2, 70, "Details",ExpressionUUID->"63dccf62-1fe0-4b49-ac2d-f3b1f73ba126",
 CellID->3610269],
Cell[3459, 109, 116, 2, 70, "Details",ExpressionUUID->"ffe6b483-3c27-4aa0-a252-93a939fe1fee",
 CellID->401364205],
Cell[3578, 113, 116, 2, 70, "Details",ExpressionUUID->"652e40a1-2810-4221-ae79-2b0d01612f4b",
 CellID->350204745],
Cell[3697, 117, 118, 2, 70, "Details",ExpressionUUID->"db1bf968-9289-49eb-a6fb-91b83d48511f",
 CellID->732958810],
Cell[3818, 121, 133, 2, 70, "Details",ExpressionUUID->"f921a1e7-d039-4ff2-9553-e7842a97b70e",
 CellID->222905350],
Cell[3954, 125, 122, 2, 70, "Details",ExpressionUUID->"16f25d0d-ce2a-4bbc-8d14-10eacc5e4534",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4113, 132, 109, 1, 63, "ObjectName",ExpressionUUID->"52cd1abd-b5c7-4c93-a73d-6158e76574ba",
 CellID->1224892054],
Cell[4225, 135, 671, 16, 77, "Usage",ExpressionUUID->"200b1f1b-979c-4792-a063-32a3eff57f0f",
 CellID->982511436],
Cell[4899, 153, 456, 11, 27, "Notes",ExpressionUUID->"0d8e5b13-0685-4bb7-9a01-6dbcd074ae96",
 CellID->1067943069],
Cell[5358, 166, 1976, 41, 99, "3ColumnTableMod",ExpressionUUID->"460fca45-0f8c-47e0-8493-212bd09bc384",
 CellID->135704964],
Cell[7337, 209, 350, 7, 41, "Notes",ExpressionUUID->"1bbaf56c-e40b-46f0-9e81-dde6f3d0240d",
 CellID->1235062731],
Cell[7690, 218, 767, 21, 45, "Notes",ExpressionUUID->"349f4721-b756-4a4b-ac2b-d1d7de2d14fb",
 CellID->1798349713],
Cell[8460, 241, 848, 17, 46, "Notes",ExpressionUUID->"82c31830-65e5-4a66-a211-f09d7147abb9",
 CellID->1514004569]
}, Open  ]],
Cell[CellGroupData[{
Cell[9345, 263, 112, 1, 44, "TutorialsSection",ExpressionUUID->"4b23173f-d809-4bc6-815a-006f0cfc557a",
 CellID->250839057],
Cell[9460, 266, 100, 1, 16, "Tutorials",ExpressionUUID->"dd4105dd-44a1-4b5d-b3f1-a17d237f0180",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[9597, 272, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"8940721b-ac4d-4591-9878-af627e5415df",
 CellID->1268215905],
Cell[9738, 275, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"27513b21-4541-410d-b927-930d4d609e97",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[9888, 281, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"48f00513-0a8e-4cd0-a77a-b4be2e23a918",
 CellID->1584193535],
Cell[10011, 284, 506, 13, 16, "SeeAlso",ExpressionUUID->"4725769a-f85d-4eeb-b0b0-ea83864763f2",
 CellID->274063637]
}, Open  ]],
Cell[CellGroupData[{
Cell[10554, 302, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"6a08a1d4-bb35-40b9-8cd5-72d977de07e2",
 CellID->1255426704],
Cell[10667, 305, 2621, 67, 74, "SeeAlso",ExpressionUUID->"ee60f268-fc49-482e-91a9-289dcf48b8bd",
 CellID->570093165]
}, Open  ]],
Cell[CellGroupData[{
Cell[13325, 377, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"5bd96727-f02a-4153-80ba-3a64d1340d95",
 CellID->38303248],
Cell[13440, 380, 101, 1, 16, "MoreAbout",ExpressionUUID->"d5358051-9846-4bac-9eb1-a1d125032d46",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13578, 386, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"0bcf6cee-834d-43b3-b741-0d20a17ca8fb",
 CellID->880084151],
Cell[CellGroupData[{
Cell[14014, 401, 382, 8, 29, "Input",ExpressionUUID->"b4b91e59-b882-43c9-9486-34f89f28f40b",
 CellID->501954103],
Cell[14399, 411, 2868, 79, 370, "Output",ExpressionUUID->"34babc59-c91a-4a0f-9fc1-a26ae2542816",
 CellID->2040930789]
}, Open  ]],
Cell[CellGroupData[{
Cell[17304, 495, 293, 5, 27, "Input",ExpressionUUID->"ddb8bc79-2325-4fa5-a161-6ff3af61848b",
 CellID->62049225],
Cell[17600, 502, 2944, 80, 370, "Output",ExpressionUUID->"b0c9bec2-9a35-405b-b0ce-6b6d8f506cf5",
 CellID->859226195]
}, Open  ]],
Cell[CellGroupData[{
Cell[20581, 587, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"d8d0a567-577d-4df2-9769-4e61a0558b67",
 CellID->442876416],
Cell[CellGroupData[{
Cell[20848, 596, 382, 8, 27, "Input",ExpressionUUID->"fe89c949-9aaa-45ba-af27-f64cdc44a929",
 CellID->2015932236],
Cell[21233, 606, 6768, 149, 370, "Output",ExpressionUUID->"d1b2185d-5183-41a0-8b49-ebbb51c6377d",
 CellID->1135978244]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28050, 761, 285, 6, 17, "ExampleDelimiter",ExpressionUUID->"6c7c5e8b-4774-4e22-a97f-a0676ab5b439",
 CellID->2032412669],
Cell[28338, 769, 312, 6, 22, "ExampleText",ExpressionUUID->"75e9bc21-8c14-4163-bb4e-cf7f334b47d5",
 CellID->79265600],
Cell[CellGroupData[{
Cell[28675, 779, 564, 14, 50, "Input",ExpressionUUID->"62804458-5634-4113-ac75-7b046fdd3499",
 CellID->349739192],
Cell[29242, 795, 1131, 19, 125, "Output",ExpressionUUID->"23bdd2a2-baee-4675-a8d6-2fe1d29dd971",
 CellID->1113848323]
}, Open  ]],
Cell[30388, 817, 307, 6, 22, "ExampleText",ExpressionUUID->"e1adc425-e8c0-43a1-a309-1981dd92d73d",
 CellID->63117191],
Cell[CellGroupData[{
Cell[30720, 827, 1211, 28, 71, "Input",ExpressionUUID->"8155f6c5-de8e-472b-ba00-03e1a35e1d8d",
 CellID->1674037307],
Cell[31934, 857, 33617, 857, 562, "Output",ExpressionUUID->"1d6d5450-f32a-441b-ab6b-eb7946f1ca9b",
 CellID->1797299119]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65612, 1721, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"d3eb99b0-708d-4dc6-881a-00f37a16fb31",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[65770, 1725, 242, 5, 33, "ExampleSection",ExpressionUUID->"fe80f798-1b50-466b-b383-ae26a130e2ff",
 CellID->1293636265],
Cell[66015, 1732, 265, 5, 21, "ExampleSection",ExpressionUUID->"dbf8af28-ce6d-4296-a1a6-e92bfe1d8bb4",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[66305, 1741, 244, 5, 21, "ExampleSection",ExpressionUUID->"0a98d1c3-259d-4b67-823a-7315391921db",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[66574, 1750, 324, 6, 24, "ExampleSubsection",ExpressionUUID->"bc737079-660e-457e-8917-94a70cef31a0",
 CellID->1757724783],
Cell[66901, 1758, 677, 18, 25, "ExampleText",ExpressionUUID->"7910e432-37ae-4f17-af38-dbefabf79cd7",
 CellID->636709847],
Cell[CellGroupData[{
Cell[67603, 1780, 706, 17, 71, "Input",ExpressionUUID->"6088cf8b-0ea5-4c96-ba2a-4dd094081dcc",
 CellID->1544660473],
Cell[68312, 1799, 5946, 165, 192, "Output",ExpressionUUID->"3bd995af-7ff1-40ec-8179-7229d749c85d",
 CellID->932924403]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74307, 1970, 371, 7, 24, "ExampleSubsection",ExpressionUUID->"4c520e9f-5abe-4c7a-9a84-295d7afdf304",
 CellID->565122810],
Cell[CellGroupData[{
Cell[74703, 1981, 559, 12, 50, "Input",ExpressionUUID->"a40661ce-69ee-44dd-bd62-1d215aa248d4",
 CellID->807479651],
Cell[75265, 1995, 2958, 82, 370, "Output",ExpressionUUID->"0386d5c6-2387-4bc0-8357-3533975577d6",
 CellID->690730269]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78272, 2083, 321, 6, 24, "ExampleSubsection",ExpressionUUID->"862de6e5-8b9a-41ca-aaf5-f83002627bfb",
 CellID->1295379749],
Cell[78596, 2091, 297, 5, 22, "ExampleText",ExpressionUUID->"3ee6a56d-890e-4a9a-b1d5-01e53c3a869c",
 CellID->671668537],
Cell[CellGroupData[{
Cell[78918, 2100, 791, 18, 66, "Input",ExpressionUUID->"19c3d851-d766-435f-9796-54c05406cbed",
 CellID->995319396],
Cell[79712, 2120, 6704, 185, 192, "Output",ExpressionUUID->"35706c67-d00a-40eb-baaf-9e6fc37f1e63",
 CellID->400504520]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86465, 2311, 324, 6, 24, "ExampleSubsection",ExpressionUUID->"d87ed259-d7fd-4a7d-8509-4386535c0408",
 CellID->622629656],
Cell[86792, 2319, 370, 7, 22, "ExampleText",ExpressionUUID->"86d00223-a937-4ff8-9db4-bc8b9d0b5968",
 CellID->2135776422],
Cell[CellGroupData[{
Cell[87187, 2330, 810, 21, 85, "Input",ExpressionUUID->"25478028-4e15-4bc5-83a3-b8ad98e8f9af",
 CellID->861014689],
Cell[88000, 2353, 9461, 190, 192, "Output",ExpressionUUID->"463b0dbe-fc4f-4e9e-910f-b79fbd390def",
 CellID->1664767012]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97510, 2549, 328, 6, 24, "ExampleSubsection",ExpressionUUID->"97d7067d-b0ee-4baa-9d6a-3f9897ab348d",
 CellID->1996300208],
Cell[CellGroupData[{
Cell[97863, 2559, 788, 18, 85, "Input",ExpressionUUID->"351c4ea9-9804-4734-b5a7-17b48da0c81c",
 CellID->1382398338],
Cell[98654, 2579, 7122, 212, 192, "Output",ExpressionUUID->"4b7825d6-9adf-4111-82a1-c3698cde10f8",
 CellID->801797854]
}, Open  ]]
}, Open  ]],
Cell[105803, 2795, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"00c65461-be4f-4b12-ace5-9a8be9ffd663",
 CellID->1680578775]
}, Open  ]],
Cell[106065, 2803, 248, 5, 33, "ExampleSection",ExpressionUUID->"b9c26ae7-1646-4dec-83f4-f3b9f3649bea",
 CellID->258228157],
Cell[CellGroupData[{
Cell[106338, 2812, 259, 5, 21, "ExampleSection",ExpressionUUID->"baabaf0c-d4c3-4489-94b6-05b20e8582ad",
 CellID->2123667759],
Cell[106600, 2819, 1100, 26, 56, "ExampleText",ExpressionUUID->"c14a6fa1-d03d-4c2f-b25b-3d62362feaa5",
 CellID->1093980736],
Cell[107703, 2847, 320, 6, 30, "Input",ExpressionUUID->"411c9200-6efb-436b-a55d-8197d0897a91",
 CellID->1272020656],
Cell[108026, 2855, 1796, 41, 258, "Input",ExpressionUUID->"723b73dd-563b-4fef-8831-d41b0ba63b4d",
 CellID->1044862595],
Cell[CellGroupData[{
Cell[109847, 2900, 365, 7, 27, "Input",ExpressionUUID->"32515beb-fcc0-44de-ae55-baedbf8f9353",
 CellID->808776150],
Cell[110215, 2909, 1699, 43, 190, "Output",ExpressionUUID->"c860ef50-b69d-4458-9fae-1938411780e9",
 CellID->80635928]
}, Open  ]],
Cell[111929, 2955, 1322, 29, 164, "Input",ExpressionUUID->"7957b538-bdc5-4255-8f67-22c8d61e23de",
 CellID->1125188443],
Cell[CellGroupData[{
Cell[113276, 2988, 263, 5, 29, "Input",ExpressionUUID->"78f55476-9ad8-4de2-9138-69bb87572adf",
 CellID->681329544],
Cell[113542, 2995, 22612, 464, 192, "Output",ExpressionUUID->"e99c3bf5-f905-4016-8dd8-4fb7a9148278",
 CellID->185860639]
}, Open  ]]
}, Open  ]],
Cell[136181, 3463, 252, 5, 33, "ExampleSection",ExpressionUUID->"22d0590e-e377-458b-805c-caa0618c48e5",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[136458, 3472, 257, 5, 21, "ExampleSection",ExpressionUUID->"d97e2f7b-bd1b-4a1d-9634-0d9538a18fcc",
 CellID->1653164318],
Cell[CellGroupData[{
Cell[136740, 3481, 2294, 57, 298, "Input",ExpressionUUID->"f5e0eca0-69ca-4e9d-a0ec-44f4911748c0",
 CellID->1106898385],
Cell[139037, 3540, 3814, 72, 282, "Output",ExpressionUUID->"dfc3ec0e-42c3-4a55-861c-84ff0b65e8c8",
 CellID->106601112]
}, Open  ]]
}, Open  ]],
Cell[142878, 3616, 249, 5, 33, "ExampleSection",ExpressionUUID->"1ec7ce0d-770a-4595-9396-56c7b1b95501",
 CellID->589267740],
Cell[CellGroupData[{
Cell[143152, 3625, 374, 8, 21, "ExampleSection",ExpressionUUID->"2764fec6-3ed6-41d7-bae5-9b56e1c4e532",
 CellID->356647253],
Cell[143529, 3635, 3916, 81, 450, "Input",ExpressionUUID->"73b5edab-6e81-4f9f-a3a3-3fa9e3f60c23",
 InitializationCell->False,
 CellID->1854181206],
Cell[147448, 3718, 29593, 562, 2785, "Input",ExpressionUUID->"ef79cc17-a444-43d4-b341-fb2f9a9b27eb",
 InitializationCell->False,
 CellID->1088327625]
}, Closed]]
}, Open  ]]
}
]
*)

